void cpREVRMatrix(double **r)
{
     r[ 0][ 0] =      0.0;  r[ 0][ 1] =    105.0;  r[ 0][ 2] =    227.0; 
     r[ 0][ 3] =    175.0;  r[ 0][ 4] =    669.0;  r[ 0][ 5] =    157.0; 
     r[ 0][ 6] =    499.0;  r[ 0][ 7] =    665.0;  r[ 0][ 8] =     66.0; 
     r[ 0][ 9] =    145.0;  r[ 0][10] =    197.0;  r[ 0][11] =    236.0; 
     r[ 0][12] =    185.0;  r[ 0][13] =     68.0;  r[ 0][14] =    490.0; 
     r[ 0][15] =   2440.0;  r[ 0][16] =   1340.0;  r[ 0][17] =     14.0; 
     r[ 0][18] =     56.0;  r[ 0][19] =    968.0; 
     r[ 1][ 0] =    105.0;  r[ 1][ 1] =      0.0;  r[ 1][ 2] =    357.0; 
     r[ 1][ 3] =     43.0;  r[ 1][ 4] =    823.0;  r[ 1][ 5] =   1745.0; 
     r[ 1][ 6] =    152.0;  r[ 1][ 7] =    243.0;  r[ 1][ 8] =    715.0; 
     r[ 1][ 9] =    136.0;  r[ 1][10] =    203.0;  r[ 1][11] =   4482.0; 
     r[ 1][12] =    125.0;  r[ 1][13] =     53.0;  r[ 1][14] =     87.0; 
     r[ 1][15] =    385.0;  r[ 1][16] =    314.0;  r[ 1][17] =    230.0; 
     r[ 1][18] =    323.0;  r[ 1][19] =     92.0; 
     r[ 2][ 0] =    227.0;  r[ 2][ 1] =    357.0;  r[ 2][ 2] =      0.0; 
     r[ 2][ 3] =   4435.0;  r[ 2][ 4] =    538.0;  r[ 2][ 5] =    768.0; 
     r[ 2][ 6] =   1055.0;  r[ 2][ 7] =    653.0;  r[ 2][ 8] =   1405.0; 
     r[ 2][ 9] =    168.0;  r[ 2][10] =    113.0;  r[ 2][11] =   2430.0; 
     r[ 2][12] =     61.0;  r[ 2][13] =     97.0;  r[ 2][14] =    173.0; 
     r[ 2][15] =   2085.0;  r[ 2][16] =   1393.0;  r[ 2][17] =     40.0; 
     r[ 2][18] =    754.0;  r[ 2][19] =     83.0; 
     r[ 3][ 0] =    175.0;  r[ 3][ 1] =     43.0;  r[ 3][ 2] =   4435.0; 
     r[ 3][ 3] =      0.0;  r[ 3][ 4] =     10.0;  r[ 3][ 5] =    400.0; 
     r[ 3][ 6] =   3691.0;  r[ 3][ 7] =    431.0;  r[ 3][ 8] =    331.0; 
     r[ 3][ 9] =     10.0;  r[ 3][10] =     10.0;  r[ 3][11] =    412.0; 
     r[ 3][12] =     47.0;  r[ 3][13] =     22.0;  r[ 3][14] =    170.0; 
     r[ 3][15] =    590.0;  r[ 3][16] =    266.0;  r[ 3][17] =     18.0; 
     r[ 3][18] =    281.0;  r[ 3][19] =     75.0; 
     r[ 4][ 0] =    669.0;  r[ 4][ 1] =    823.0;  r[ 4][ 2] =    538.0; 
     r[ 4][ 3] =     10.0;  r[ 4][ 4] =      0.0;  r[ 4][ 5] =     10.0; 
     r[ 4][ 6] =     10.0;  r[ 4][ 7] =    303.0;  r[ 4][ 8] =    441.0; 
     r[ 4][ 9] =    280.0;  r[ 4][10] =    396.0;  r[ 4][11] =     48.0; 
     r[ 4][12] =    159.0;  r[ 4][13] =    726.0;  r[ 4][14] =    285.0; 
     r[ 4][15] =   2331.0;  r[ 4][16] =    576.0;  r[ 4][17] =    435.0; 
     r[ 4][18] =   1466.0;  r[ 4][19] =    592.0; 
     r[ 5][ 0] =    157.0;  r[ 5][ 1] =   1745.0;  r[ 5][ 2] =    768.0; 
     r[ 5][ 3] =    400.0;  r[ 5][ 4] =     10.0;  r[ 5][ 5] =      0.0; 
     r[ 5][ 6] =   3122.0;  r[ 5][ 7] =    133.0;  r[ 5][ 8] =   1269.0; 
     r[ 5][ 9] =     92.0;  r[ 5][10] =    286.0;  r[ 5][11] =   3313.0; 
     r[ 5][12] =    202.0;  r[ 5][13] =     10.0;  r[ 5][14] =    323.0; 
     r[ 5][15] =    396.0;  r[ 5][16] =    241.0;  r[ 5][17] =     53.0; 
     r[ 5][18] =    391.0;  r[ 5][19] =     54.0; 
     r[ 6][ 0] =    499.0;  r[ 6][ 1] =    152.0;  r[ 6][ 2] =   1055.0; 
     r[ 6][ 3] =   3691.0;  r[ 6][ 4] =     10.0;  r[ 6][ 5] =   3122.0; 
     r[ 6][ 6] =      0.0;  r[ 6][ 7] =    379.0;  r[ 6][ 8] =    162.0; 
     r[ 6][ 9] =    148.0;  r[ 6][10] =     82.0;  r[ 6][11] =   2629.0; 
     r[ 6][12] =    113.0;  r[ 6][13] =    145.0;  r[ 6][14] =    185.0; 
     r[ 6][15] =    568.0;  r[ 6][16] =    369.0;  r[ 6][17] =     63.0; 
     r[ 6][18] =    142.0;  r[ 6][19] =    200.0; 
     r[ 7][ 0] =    665.0;  r[ 7][ 1] =    243.0;  r[ 7][ 2] =    653.0; 
     r[ 7][ 3] =    431.0;  r[ 7][ 4] =    303.0;  r[ 7][ 5] =    133.0; 
     r[ 7][ 6] =    379.0;  r[ 7][ 7] =      0.0;  r[ 7][ 8] =     19.0; 
     r[ 7][ 9] =     40.0;  r[ 7][10] =     20.0;  r[ 7][11] =    263.0; 
     r[ 7][12] =     21.0;  r[ 7][13] =     25.0;  r[ 7][14] =     28.0; 
     r[ 7][15] =    691.0;  r[ 7][16] =     92.0;  r[ 7][17] =     82.0; 
     r[ 7][18] =     10.0;  r[ 7][19] =     91.0; 
     r[ 8][ 0] =     66.0;  r[ 8][ 1] =    715.0;  r[ 8][ 2] =   1405.0; 
     r[ 8][ 3] =    331.0;  r[ 8][ 4] =    441.0;  r[ 8][ 5] =   1269.0; 
     r[ 8][ 6] =    162.0;  r[ 8][ 7] =     19.0;  r[ 8][ 8] =      0.0; 
     r[ 8][ 9] =     29.0;  r[ 8][10] =     66.0;  r[ 8][11] =    305.0; 
     r[ 8][12] =     10.0;  r[ 8][13] =    127.0;  r[ 8][14] =    152.0; 
     r[ 8][15] =    303.0;  r[ 8][16] =     32.0;  r[ 8][17] =     69.0; 
     r[ 8][18] =   1971.0;  r[ 8][19] =     25.0; 
     r[ 9][ 0] =    145.0;  r[ 9][ 1] =    136.0;  r[ 9][ 2] =    168.0; 
     r[ 9][ 3] =     10.0;  r[ 9][ 4] =    280.0;  r[ 9][ 5] =     92.0; 
     r[ 9][ 6] =    148.0;  r[ 9][ 7] =     40.0;  r[ 9][ 8] =     29.0; 
     r[ 9][ 9] =      0.0;  r[ 9][10] =   1745.0;  r[ 9][11] =    345.0; 
     r[ 9][12] =   1772.0;  r[ 9][13] =    454.0;  r[ 9][14] =    117.0; 
     r[ 9][15] =    216.0;  r[ 9][16] =   1040.0;  r[ 9][17] =     42.0; 
     r[ 9][18] =     89.0;  r[ 9][19] =   4797.0; 
     r[10][ 0] =    197.0;  r[10][ 1] =    203.0;  r[10][ 2] =    113.0; 
     r[10][ 3] =     10.0;  r[10][ 4] =    396.0;  r[10][ 5] =    286.0; 
     r[10][ 6] =     82.0;  r[10][ 7] =     20.0;  r[10][ 8] =     66.0; 
     r[10][ 9] =   1745.0;  r[10][10] =      0.0;  r[10][11] =    218.0; 
     r[10][12] =   1351.0;  r[10][13] =   1268.0;  r[10][14] =    219.0; 
     r[10][15] =    516.0;  r[10][16] =    156.0;  r[10][17] =    159.0; 
     r[10][18] =    189.0;  r[10][19] =    865.0; 
     r[11][ 0] =    236.0;  r[11][ 1] =   4482.0;  r[11][ 2] =   2430.0; 
     r[11][ 3] =    412.0;  r[11][ 4] =     48.0;  r[11][ 5] =   3313.0; 
     r[11][ 6] =   2629.0;  r[11][ 7] =    263.0;  r[11][ 8] =    305.0; 
     r[11][ 9] =    345.0;  r[11][10] =    218.0;  r[11][11] =      0.0; 
     r[11][12] =    193.0;  r[11][13] =     72.0;  r[11][14] =    302.0; 
     r[11][15] =    868.0;  r[11][16] =    918.0;  r[11][17] =     10.0; 
     r[11][18] =    247.0;  r[11][19] =    249.0; 
     r[12][ 0] =    185.0;  r[12][ 1] =    125.0;  r[12][ 2] =     61.0; 
     r[12][ 3] =     47.0;  r[12][ 4] =    159.0;  r[12][ 5] =    202.0; 
     r[12][ 6] =    113.0;  r[12][ 7] =     21.0;  r[12][ 8] =     10.0; 
     r[12][ 9] =   1772.0;  r[12][10] =   1351.0;  r[12][11] =    193.0; 
     r[12][12] =      0.0;  r[12][13] =    327.0;  r[12][14] =    100.0; 
     r[12][15] =     93.0;  r[12][16] =    645.0;  r[12][17] =     86.0; 
     r[12][18] =    215.0;  r[12][19] =    475.0; 
     r[13][ 0] =     68.0;  r[13][ 1] =     53.0;  r[13][ 2] =     97.0; 
     r[13][ 3] =     22.0;  r[13][ 4] =    726.0;  r[13][ 5] =     10.0; 
     r[13][ 6] =    145.0;  r[13][ 7] =     25.0;  r[13][ 8] =    127.0; 
     r[13][ 9] =    454.0;  r[13][10] =   1268.0;  r[13][11] =     72.0; 
     r[13][12] =    327.0;  r[13][13] =      0.0;  r[13][14] =     43.0; 
     r[13][15] =    487.0;  r[13][16] =    148.0;  r[13][17] =    468.0; 
     r[13][18] =   2370.0;  r[13][19] =    317.0; 
     r[14][ 0] =    490.0;  r[14][ 1] =     87.0;  r[14][ 2] =    173.0; 
     r[14][ 3] =    170.0;  r[14][ 4] =    285.0;  r[14][ 5] =    323.0; 
     r[14][ 6] =    185.0;  r[14][ 7] =     28.0;  r[14][ 8] =    152.0; 
     r[14][ 9] =    117.0;  r[14][10] =    219.0;  r[14][11] =    302.0; 
     r[14][12] =    100.0;  r[14][13] =     43.0;  r[14][14] =      0.0; 
     r[14][15] =   1202.0;  r[14][16] =    260.0;  r[14][17] =     49.0; 
     r[14][18] =     97.0;  r[14][19] =    122.0; 
     r[15][ 0] =   2440.0;  r[15][ 1] =    385.0;  r[15][ 2] =   2085.0; 
     r[15][ 3] =    590.0;  r[15][ 4] =   2331.0;  r[15][ 5] =    396.0; 
     r[15][ 6] =    568.0;  r[15][ 7] =    691.0;  r[15][ 8] =    303.0; 
     r[15][ 9] =    216.0;  r[15][10] =    516.0;  r[15][11] =    868.0; 
     r[15][12] =     93.0;  r[15][13] =    487.0;  r[15][14] =   1202.0; 
     r[15][15] =      0.0;  r[15][16] =   2151.0;  r[15][17] =     73.0; 
     r[15][18] =    522.0;  r[15][19] =    167.0; 
     r[16][ 0] =   1340.0;  r[16][ 1] =    314.0;  r[16][ 2] =   1393.0; 
     r[16][ 3] =    266.0;  r[16][ 4] =    576.0;  r[16][ 5] =    241.0; 
     r[16][ 6] =    369.0;  r[16][ 7] =     92.0;  r[16][ 8] =     32.0; 
     r[16][ 9] =   1040.0;  r[16][10] =    156.0;  r[16][11] =    918.0; 
     r[16][12] =    645.0;  r[16][13] =    148.0;  r[16][14] =    260.0; 
     r[16][15] =   2151.0;  r[16][16] =      0.0;  r[16][17] =     29.0; 
     r[16][18] =     71.0;  r[16][19] =    760.0; 
     r[17][ 0] =     14.0;  r[17][ 1] =    230.0;  r[17][ 2] =     40.0; 
     r[17][ 3] =     18.0;  r[17][ 4] =    435.0;  r[17][ 5] =     53.0; 
     r[17][ 6] =     63.0;  r[17][ 7] =     82.0;  r[17][ 8] =     69.0; 
     r[17][ 9] =     42.0;  r[17][10] =    159.0;  r[17][11] =     10.0; 
     r[17][12] =     86.0;  r[17][13] =    468.0;  r[17][14] =     49.0; 
     r[17][15] =     73.0;  r[17][16] =     29.0;  r[17][17] =      0.0; 
     r[17][18] =    346.0;  r[17][19] =     10.0; 
     r[18][ 0] =     56.0;  r[18][ 1] =    323.0;  r[18][ 2] =    754.0; 
     r[18][ 3] =    281.0;  r[18][ 4] =   1466.0;  r[18][ 5] =    391.0; 
     r[18][ 6] =    142.0;  r[18][ 7] =     10.0;  r[18][ 8] =   1971.0; 
     r[18][ 9] =     89.0;  r[18][10] =    189.0;  r[18][11] =    247.0; 
     r[18][12] =    215.0;  r[18][13] =   2370.0;  r[18][14] =     97.0; 
     r[18][15] =    522.0;  r[18][16] =     71.0;  r[18][17] =    346.0; 
     r[18][18] =      0.0;  r[18][19] =    119.0; 
     r[19][ 0] =    968.0;  r[19][ 1] =     92.0;  r[19][ 2] =     83.0; 
     r[19][ 3] =     75.0;  r[19][ 4] =    592.0;  r[19][ 5] =     54.0; 
     r[19][ 6] =    200.0;  r[19][ 7] =     91.0;  r[19][ 8] =     25.0; 
     r[19][ 9] =   4797.0;  r[19][10] =    865.0;  r[19][11] =    249.0; 
     r[19][12] =    475.0;  r[19][13] =    317.0;  r[19][14] =    122.0; 
     r[19][15] =    167.0;  r[19][16] =    760.0;  r[19][17] =     10.0; 
     r[19][18] =    119.0;  r[19][19] =      0.0; 
}

void d78RMatrix(double **r)
{
     r[ 0][ 0] =   0.000000;  r[ 0][ 1] =   0.267828;  r[ 0][ 2] =   0.984474; 
     r[ 0][ 3] =   1.199805;  r[ 0][ 4] =   0.360016;  r[ 0][ 5] =   0.887753; 
     r[ 0][ 6] =   1.961167;  r[ 0][ 7] =   2.386111;  r[ 0][ 8] =   0.228116; 
     r[ 0][ 9] =   0.653416;  r[ 0][10] =   0.406431;  r[ 0][11] =   0.258635; 
     r[ 0][12] =   0.717840;  r[ 0][13] =   0.183641;  r[ 0][14] =   2.485920; 
     r[ 0][15] =   4.051870;  r[ 0][16] =   3.680365;  r[ 0][17] =   0.000000; 
     r[ 0][18] =   0.244139;  r[ 0][19] =   2.059564; 
     r[ 1][ 0] =   0.267828;  r[ 1][ 1] =   0.000000;  r[ 1][ 2] =   0.327059; 
     r[ 1][ 3] =   0.000000;  r[ 1][ 4] =   0.232374;  r[ 1][ 5] =   2.439939; 
     r[ 1][ 6] =   0.000000;  r[ 1][ 7] =   0.087791;  r[ 1][ 8] =   2.383148; 
     r[ 1][ 9] =   0.632629;  r[ 1][10] =   0.154924;  r[ 1][11] =   4.610124; 
     r[ 1][12] =   0.896321;  r[ 1][13] =   0.136906;  r[ 1][14] =   1.028313; 
     r[ 1][15] =   1.531590;  r[ 1][16] =   0.265745;  r[ 1][17] =   2.001375; 
     r[ 1][18] =   0.078012;  r[ 1][19] =   0.240368; 
     r[ 2][ 0] =   0.984474;  r[ 2][ 1] =   0.327059;  r[ 2][ 2] =   0.000000; 
     r[ 2][ 3] =   8.931515;  r[ 2][ 4] =   0.000000;  r[ 2][ 5] =   1.028509; 
     r[ 2][ 6] =   1.493409;  r[ 2][ 7] =   1.385352;  r[ 2][ 8] =   5.290024; 
     r[ 2][ 9] =   0.768024;  r[ 2][10] =   0.341113;  r[ 2][11] =   3.148371; 
     r[ 2][12] =   0.000000;  r[ 2][13] =   0.138503;  r[ 2][14] =   0.419244; 
     r[ 2][15] =   4.885892;  r[ 2][16] =   2.271697;  r[ 2][17] =   0.224968; 
     r[ 2][18] =   0.946940;  r[ 2][19] =   0.158067; 
     r[ 3][ 0] =   1.199805;  r[ 3][ 1] =   0.000000;  r[ 3][ 2] =   8.931515; 
     r[ 3][ 3] =   0.000000;  r[ 3][ 4] =   0.000000;  r[ 3][ 5] =   1.348551; 
     r[ 3][ 6] =  11.388659;  r[ 3][ 7] =   1.240981;  r[ 3][ 8] =   0.868241; 
     r[ 3][ 9] =   0.239248;  r[ 3][10] =   0.000000;  r[ 3][11] =   0.716913; 
     r[ 3][12] =   0.000000;  r[ 3][13] =   0.000000;  r[ 3][14] =   0.133940; 
     r[ 3][15] =   0.956097;  r[ 3][16] =   0.660930;  r[ 3][17] =   0.000000; 
     r[ 3][18] =   0.000000;  r[ 3][19] =   0.178316; 
     r[ 4][ 0] =   0.360016;  r[ 4][ 1] =   0.232374;  r[ 4][ 2] =   0.000000; 
     r[ 4][ 3] =   0.000000;  r[ 4][ 4] =   0.000000;  r[ 4][ 5] =   0.000000; 
     r[ 4][ 6] =   0.000000;  r[ 4][ 7] =   0.107278;  r[ 4][ 8] =   0.282729; 
     r[ 4][ 9] =   0.438074;  r[ 4][10] =   0.000000;  r[ 4][11] =   0.000000; 
     r[ 4][12] =   0.000000;  r[ 4][13] =   0.000000;  r[ 4][14] =   0.187550; 
     r[ 4][15] =   1.598356;  r[ 4][16] =   0.162366;  r[ 4][17] =   0.000000; 
     r[ 4][18] =   0.953164;  r[ 4][19] =   0.484678; 
     r[ 5][ 0] =   0.887753;  r[ 5][ 1] =   2.439939;  r[ 5][ 2] =   1.028509; 
     r[ 5][ 3] =   1.348551;  r[ 5][ 4] =   0.000000;  r[ 5][ 5] =   0.000000; 
     r[ 5][ 6] =   7.086022;  r[ 5][ 7] =   0.281581;  r[ 5][ 8] =   6.011613; 
     r[ 5][ 9] =   0.180393;  r[ 5][10] =   0.730772;  r[ 5][11] =   1.519078; 
     r[ 5][12] =   1.127499;  r[ 5][13] =   0.000000;  r[ 5][14] =   1.526188; 
     r[ 5][15] =   0.561828;  r[ 5][16] =   0.525651;  r[ 5][17] =   0.000000; 
     r[ 5][18] =   0.000000;  r[ 5][19] =   0.346983; 
     r[ 6][ 0] =   1.961167;  r[ 6][ 1] =   0.000000;  r[ 6][ 2] =   1.493409; 
     r[ 6][ 3] =  11.388659;  r[ 6][ 4] =   0.000000;  r[ 6][ 5] =   7.086022; 
     r[ 6][ 6] =   0.000000;  r[ 6][ 7] =   0.811907;  r[ 6][ 8] =   0.439469; 
     r[ 6][ 9] =   0.609526;  r[ 6][10] =   0.112880;  r[ 6][11] =   0.830078; 
     r[ 6][12] =   0.304803;  r[ 6][13] =   0.000000;  r[ 6][14] =   0.507003; 
     r[ 6][15] =   0.793999;  r[ 6][16] =   0.340156;  r[ 6][17] =   0.000000; 
     r[ 6][18] =   0.214717;  r[ 6][19] =   0.367250; 
     r[ 7][ 0] =   2.386111;  r[ 7][ 1] =   0.087791;  r[ 7][ 2] =   1.385352; 
     r[ 7][ 3] =   1.240981;  r[ 7][ 4] =   0.107278;  r[ 7][ 5] =   0.281581; 
     r[ 7][ 6] =   0.811907;  r[ 7][ 7] =   0.000000;  r[ 7][ 8] =   0.106802; 
     r[ 7][ 9] =   0.000000;  r[ 7][10] =   0.071514;  r[ 7][11] =   0.267683; 
     r[ 7][12] =   0.170372;  r[ 7][13] =   0.153478;  r[ 7][14] =   0.347153; 
     r[ 7][15] =   2.322243;  r[ 7][16] =   0.306662;  r[ 7][17] =   0.000000; 
     r[ 7][18] =   0.000000;  r[ 7][19] =   0.538165; 
     r[ 8][ 0] =   0.228116;  r[ 8][ 1] =   2.383148;  r[ 8][ 2] =   5.290024; 
     r[ 8][ 3] =   0.868241;  r[ 8][ 4] =   0.282729;  r[ 8][ 5] =   6.011613; 
     r[ 8][ 6] =   0.439469;  r[ 8][ 7] =   0.106802;  r[ 8][ 8] =   0.000000; 
     r[ 8][ 9] =   0.076981;  r[ 8][10] =   0.443504;  r[ 8][11] =   0.270475; 
     r[ 8][12] =   0.000000;  r[ 8][13] =   0.475927;  r[ 8][14] =   0.933709; 
     r[ 8][15] =   0.353643;  r[ 8][16] =   0.226333;  r[ 8][17] =   0.270564; 
     r[ 8][18] =   1.265400;  r[ 8][19] =   0.438715; 
     r[ 9][ 0] =   0.653416;  r[ 9][ 1] =   0.632629;  r[ 9][ 2] =   0.768024; 
     r[ 9][ 3] =   0.239248;  r[ 9][ 4] =   0.438074;  r[ 9][ 5] =   0.180393; 
     r[ 9][ 6] =   0.609526;  r[ 9][ 7] =   0.000000;  r[ 9][ 8] =   0.076981; 
     r[ 9][ 9] =   0.000000;  r[ 9][10] =   2.556685;  r[ 9][11] =   0.460857; 
     r[ 9][12] =   3.332732;  r[ 9][13] =   1.951951;  r[ 9][14] =   0.119152; 
     r[ 9][15] =   0.247955;  r[ 9][16] =   1.900739;  r[ 9][17] =   0.000000; 
     r[ 9][18] =   0.374834;  r[ 9][19] =   8.810038; 
     r[10][ 0] =   0.406431;  r[10][ 1] =   0.154924;  r[10][ 2] =   0.341113; 
     r[10][ 3] =   0.000000;  r[10][ 4] =   0.000000;  r[10][ 5] =   0.730772; 
     r[10][ 6] =   0.112880;  r[10][ 7] =   0.071514;  r[10][ 8] =   0.443504; 
     r[10][ 9] =   2.556685;  r[10][10] =   0.000000;  r[10][11] =   0.180629; 
     r[10][12] =   5.230115;  r[10][13] =   1.565160;  r[10][14] =   0.316258; 
     r[10][15] =   0.171432;  r[10][16] =   0.331090;  r[10][17] =   0.461776; 
     r[10][18] =   0.286572;  r[10][19] =   1.745156; 
     r[11][ 0] =   0.258635;  r[11][ 1] =   4.610124;  r[11][ 2] =   3.148371; 
     r[11][ 3] =   0.716913;  r[11][ 4] =   0.000000;  r[11][ 5] =   1.519078; 
     r[11][ 6] =   0.830078;  r[11][ 7] =   0.267683;  r[11][ 8] =   0.270475; 
     r[11][ 9] =   0.460857;  r[11][10] =   0.180629;  r[11][11] =   0.000000; 
     r[11][12] =   2.411739;  r[11][13] =   0.000000;  r[11][14] =   0.335419; 
     r[11][15] =   0.954557;  r[11][16] =   1.350599;  r[11][17] =   0.000000; 
     r[11][18] =   0.132142;  r[11][19] =   0.103850; 
     r[12][ 0] =   0.717840;  r[12][ 1] =   0.896321;  r[12][ 2] =   0.000000; 
     r[12][ 3] =   0.000000;  r[12][ 4] =   0.000000;  r[12][ 5] =   1.127499; 
     r[12][ 6] =   0.304803;  r[12][ 7] =   0.170372;  r[12][ 8] =   0.000000; 
     r[12][ 9] =   3.332732;  r[12][10] =   5.230115;  r[12][11] =   2.411739; 
     r[12][12] =   0.000000;  r[12][13] =   0.921860;  r[12][14] =   0.170205; 
     r[12][15] =   0.619951;  r[12][16] =   1.031534;  r[12][17] =   0.000000; 
     r[12][18] =   0.000000;  r[12][19] =   2.565955; 
     r[13][ 0] =   0.183641;  r[13][ 1] =   0.136906;  r[13][ 2] =   0.138503; 
     r[13][ 3] =   0.000000;  r[13][ 4] =   0.000000;  r[13][ 5] =   0.000000; 
     r[13][ 6] =   0.000000;  r[13][ 7] =   0.153478;  r[13][ 8] =   0.475927; 
     r[13][ 9] =   1.951951;  r[13][10] =   1.565160;  r[13][11] =   0.000000; 
     r[13][12] =   0.921860;  r[13][13] =   0.000000;  r[13][14] =   0.110506; 
     r[13][15] =   0.459901;  r[13][16] =   0.136655;  r[13][17] =   0.762354; 
     r[13][18] =   6.952629;  r[13][19] =   0.123606; 
     r[14][ 0] =   2.485920;  r[14][ 1] =   1.028313;  r[14][ 2] =   0.419244; 
     r[14][ 3] =   0.133940;  r[14][ 4] =   0.187550;  r[14][ 5] =   1.526188; 
     r[14][ 6] =   0.507003;  r[14][ 7] =   0.347153;  r[14][ 8] =   0.933709; 
     r[14][ 9] =   0.119152;  r[14][10] =   0.316258;  r[14][11] =   0.335419; 
     r[14][12] =   0.170205;  r[14][13] =   0.110506;  r[14][14] =   0.000000; 
     r[14][15] =   2.427202;  r[14][16] =   0.782857;  r[14][17] =   0.000000; 
     r[14][18] =   0.000000;  r[14][19] =   0.485026; 
     r[15][ 0] =   4.051870;  r[15][ 1] =   1.531590;  r[15][ 2] =   4.885892; 
     r[15][ 3] =   0.956097;  r[15][ 4] =   1.598356;  r[15][ 5] =   0.561828; 
     r[15][ 6] =   0.793999;  r[15][ 7] =   2.322243;  r[15][ 8] =   0.353643; 
     r[15][ 9] =   0.247955;  r[15][10] =   0.171432;  r[15][11] =   0.954557; 
     r[15][12] =   0.619951;  r[15][13] =   0.459901;  r[15][14] =   2.427202; 
     r[15][15] =   0.000000;  r[15][16] =   5.436674;  r[15][17] =   0.740819; 
     r[15][18] =   0.336289;  r[15][19] =   0.303836; 
     r[16][ 0] =   3.680365;  r[16][ 1] =   0.265745;  r[16][ 2] =   2.271697; 
     r[16][ 3] =   0.660930;  r[16][ 4] =   0.162366;  r[16][ 5] =   0.525651; 
     r[16][ 6] =   0.340156;  r[16][ 7] =   0.306662;  r[16][ 8] =   0.226333; 
     r[16][ 9] =   1.900739;  r[16][10] =   0.331090;  r[16][11] =   1.350599; 
     r[16][12] =   1.031534;  r[16][13] =   0.136655;  r[16][14] =   0.782857; 
     r[16][15] =   5.436674;  r[16][16] =   0.000000;  r[16][17] =   0.000000; 
     r[16][18] =   0.417839;  r[16][19] =   1.561997; 
     r[17][ 0] =   0.000000;  r[17][ 1] =   2.001375;  r[17][ 2] =   0.224968; 
     r[17][ 3] =   0.000000;  r[17][ 4] =   0.000000;  r[17][ 5] =   0.000000; 
     r[17][ 6] =   0.000000;  r[17][ 7] =   0.000000;  r[17][ 8] =   0.270564; 
     r[17][ 9] =   0.000000;  r[17][10] =   0.461776;  r[17][11] =   0.000000; 
     r[17][12] =   0.000000;  r[17][13] =   0.762354;  r[17][14] =   0.000000; 
     r[17][15] =   0.740819;  r[17][16] =   0.000000;  r[17][17] =   0.000000; 
     r[17][18] =   0.608070;  r[17][19] =   0.000000; 
     r[18][ 0] =   0.244139;  r[18][ 1] =   0.078012;  r[18][ 2] =   0.946940; 
     r[18][ 3] =   0.000000;  r[18][ 4] =   0.953164;  r[18][ 5] =   0.000000; 
     r[18][ 6] =   0.214717;  r[18][ 7] =   0.000000;  r[18][ 8] =   1.265400; 
     r[18][ 9] =   0.374834;  r[18][10] =   0.286572;  r[18][11] =   0.132142; 
     r[18][12] =   0.000000;  r[18][13] =   6.952629;  r[18][14] =   0.000000; 
     r[18][15] =   0.336289;  r[18][16] =   0.417839;  r[18][17] =   0.608070; 
     r[18][18] =   0.000000;  r[18][19] =   0.279379; 
     r[19][ 0] =   2.059564;  r[19][ 1] =   0.240368;  r[19][ 2] =   0.158067; 
     r[19][ 3] =   0.178316;  r[19][ 4] =   0.484678;  r[19][ 5] =   0.346983; 
     r[19][ 6] =   0.367250;  r[19][ 7] =   0.538165;  r[19][ 8] =   0.438715; 
     r[19][ 9] =   8.810038;  r[19][10] =   1.745156;  r[19][11] =   0.103850; 
     r[19][12] =   2.565955;  r[19][13] =   0.123606;  r[19][14] =   0.485026; 
     r[19][15] =   0.303836;  r[19][16] =   1.561997;  r[19][17] =   0.000000; 
     r[19][18] =   0.279379;  r[19][19] =   0.000000; 
}

void jttRMatrix(double **r)
{
     r[ 0][ 0] =   0.000000;  r[ 0][ 1] =   0.531678;  r[ 0][ 2] =   0.557967; 
     r[ 0][ 3] =   0.827445;  r[ 0][ 4] =   0.574478;  r[ 0][ 5] =   0.556725; 
     r[ 0][ 6] =   1.066681;  r[ 0][ 7] =   1.740159;  r[ 0][ 8] =   0.219970; 
     r[ 0][ 9] =   0.361684;  r[ 0][10] =   0.310007;  r[ 0][11] =   0.369437; 
     r[ 0][12] =   0.469395;  r[ 0][13] =   0.138293;  r[ 0][14] =   1.959599; 
     r[ 0][15] =   3.887095;  r[ 0][16] =   4.582565;  r[ 0][17] =   0.084329; 
     r[ 0][18] =   0.139492;  r[ 0][19] =   2.924161; 
     r[ 1][ 0] =   0.531678;  r[ 1][ 1] =   0.000000;  r[ 1][ 2] =   0.451095; 
     r[ 1][ 3] =   0.154899;  r[ 1][ 4] =   1.019843;  r[ 1][ 5] =   3.021995; 
     r[ 1][ 6] =   0.318483;  r[ 1][ 7] =   1.359652;  r[ 1][ 8] =   3.210671; 
     r[ 1][ 9] =   0.239195;  r[ 1][10] =   0.372261;  r[ 1][11] =   6.529255; 
     r[ 1][12] =   0.431045;  r[ 1][13] =   0.065314;  r[ 1][14] =   0.710489; 
     r[ 1][15] =   1.001551;  r[ 1][16] =   0.650282;  r[ 1][17] =   1.257961; 
     r[ 1][18] =   0.235601;  r[ 1][19] =   0.171995; 
     r[ 2][ 0] =   0.557967;  r[ 2][ 1] =   0.451095;  r[ 2][ 2] =   0.000000; 
     r[ 2][ 3] =   5.549530;  r[ 2][ 4] =   0.313311;  r[ 2][ 5] =   0.768834; 
     r[ 2][ 6] =   0.578115;  r[ 2][ 7] =   0.773313;  r[ 2][ 8] =   4.025778; 
     r[ 2][ 9] =   0.491003;  r[ 2][10] =   0.137289;  r[ 2][11] =   2.529517; 
     r[ 2][12] =   0.330720;  r[ 2][13] =   0.073481;  r[ 2][14] =   0.121804; 
     r[ 2][15] =   5.057964;  r[ 2][16] =   2.351311;  r[ 2][17] =   0.027700; 
     r[ 2][18] =   0.700693;  r[ 2][19] =   0.164525; 
     r[ 3][ 0] =   0.827445;  r[ 3][ 1] =   0.154899;  r[ 3][ 2] =   5.549530; 
     r[ 3][ 3] =   0.000000;  r[ 3][ 4] =   0.105625;  r[ 3][ 5] =   0.521646; 
     r[ 3][ 6] =   7.766557;  r[ 3][ 7] =   1.272434;  r[ 3][ 8] =   1.032342; 
     r[ 3][ 9] =   0.115968;  r[ 3][10] =   0.061486;  r[ 3][11] =   0.282466; 
     r[ 3][12] =   0.190001;  r[ 3][13] =   0.032522;  r[ 3][14] =   0.127164; 
     r[ 3][15] =   0.589268;  r[ 3][16] =   0.425159;  r[ 3][17] =   0.057466; 
     r[ 3][18] =   0.453952;  r[ 3][19] =   0.315261; 
     r[ 4][ 0] =   0.574478;  r[ 4][ 1] =   1.019843;  r[ 4][ 2] =   0.313311; 
     r[ 4][ 3] =   0.105625;  r[ 4][ 4] =   0.000000;  r[ 4][ 5] =   0.091304; 
     r[ 4][ 6] =   0.053907;  r[ 4][ 7] =   0.546389;  r[ 4][ 8] =   0.724998; 
     r[ 4][ 9] =   0.150559;  r[ 4][10] =   0.164593;  r[ 4][11] =   0.049009; 
     r[ 4][12] =   0.409202;  r[ 4][13] =   0.678335;  r[ 4][14] =   0.123653; 
     r[ 4][15] =   2.155331;  r[ 4][16] =   0.469823;  r[ 4][17] =   1.104181; 
     r[ 4][18] =   2.114852;  r[ 4][19] =   0.621323; 
     r[ 5][ 0] =   0.556725;  r[ 5][ 1] =   3.021995;  r[ 5][ 2] =   0.768834; 
     r[ 5][ 3] =   0.521646;  r[ 5][ 4] =   0.091304;  r[ 5][ 5] =   0.000000; 
     r[ 5][ 6] =   3.417706;  r[ 5][ 7] =   0.231294;  r[ 5][ 8] =   5.684080; 
     r[ 5][ 9] =   0.078270;  r[ 5][10] =   0.709004;  r[ 5][11] =   2.966732; 
     r[ 5][12] =   0.456901;  r[ 5][13] =   0.045683;  r[ 5][14] =   1.608126; 
     r[ 5][15] =   0.548807;  r[ 5][16] =   0.523825;  r[ 5][17] =   0.172206; 
     r[ 5][18] =   0.254745;  r[ 5][19] =   0.179771; 
     r[ 6][ 0] =   1.066681;  r[ 6][ 1] =   0.318483;  r[ 6][ 2] =   0.578115; 
     r[ 6][ 3] =   7.766557;  r[ 6][ 4] =   0.053907;  r[ 6][ 5] =   3.417706; 
     r[ 6][ 6] =   0.000000;  r[ 6][ 7] =   1.115632;  r[ 6][ 8] =   0.243768; 
     r[ 6][ 9] =   0.111773;  r[ 6][10] =   0.097485;  r[ 6][11] =   1.731684; 
     r[ 6][12] =   0.175084;  r[ 6][13] =   0.043829;  r[ 6][14] =   0.191994; 
     r[ 6][15] =   0.312449;  r[ 6][16] =   0.331584;  r[ 6][17] =   0.114381; 
     r[ 6][18] =   0.063452;  r[ 6][19] =   0.465271; 
     r[ 7][ 0] =   1.740159;  r[ 7][ 1] =   1.359652;  r[ 7][ 2] =   0.773313; 
     r[ 7][ 3] =   1.272434;  r[ 7][ 4] =   0.546389;  r[ 7][ 5] =   0.231294; 
     r[ 7][ 6] =   1.115632;  r[ 7][ 7] =   0.000000;  r[ 7][ 8] =   0.201696; 
     r[ 7][ 9] =   0.053769;  r[ 7][10] =   0.069492;  r[ 7][11] =   0.269840; 
     r[ 7][12] =   0.130379;  r[ 7][13] =   0.050212;  r[ 7][14] =   0.208081; 
     r[ 7][15] =   1.874296;  r[ 7][16] =   0.316862;  r[ 7][17] =   0.544180; 
     r[ 7][18] =   0.052500;  r[ 7][19] =   0.470140; 
     r[ 8][ 0] =   0.219970;  r[ 8][ 1] =   3.210671;  r[ 8][ 2] =   4.025778; 
     r[ 8][ 3] =   1.032342;  r[ 8][ 4] =   0.724998;  r[ 8][ 5] =   5.684080; 
     r[ 8][ 6] =   0.243768;  r[ 8][ 7] =   0.201696;  r[ 8][ 8] =   0.000000; 
     r[ 8][ 9] =   0.181788;  r[ 8][10] =   0.540571;  r[ 8][11] =   0.525096; 
     r[ 8][12] =   0.329660;  r[ 8][13] =   0.453428;  r[ 8][14] =   1.141961; 
     r[ 8][15] =   0.743458;  r[ 8][16] =   0.477355;  r[ 8][17] =   0.128193; 
     r[ 8][18] =   5.848400;  r[ 8][19] =   0.121827; 
     r[ 9][ 0] =   0.361684;  r[ 9][ 1] =   0.239195;  r[ 9][ 2] =   0.491003; 
     r[ 9][ 3] =   0.115968;  r[ 9][ 4] =   0.150559;  r[ 9][ 5] =   0.078270; 
     r[ 9][ 6] =   0.111773;  r[ 9][ 7] =   0.053769;  r[ 9][ 8] =   0.181788; 
     r[ 9][ 9] =   0.000000;  r[ 9][10] =   2.335139;  r[ 9][11] =   0.202562; 
     r[ 9][12] =   4.831666;  r[ 9][13] =   0.777090;  r[ 9][14] =   0.098580; 
     r[ 9][15] =   0.405119;  r[ 9][16] =   2.553806;  r[ 9][17] =   0.134510; 
     r[ 9][18] =   0.303445;  r[ 9][19] =   9.533943; 
     r[10][ 0] =   0.310007;  r[10][ 1] =   0.372261;  r[10][ 2] =   0.137289; 
     r[10][ 3] =   0.061486;  r[10][ 4] =   0.164593;  r[10][ 5] =   0.709004; 
     r[10][ 6] =   0.097485;  r[10][ 7] =   0.069492;  r[10][ 8] =   0.540571; 
     r[10][ 9] =   2.335139;  r[10][10] =   0.000000;  r[10][11] =   0.146481; 
     r[10][12] =   3.856906;  r[10][13] =   2.500294;  r[10][14] =   1.060504; 
     r[10][15] =   0.592511;  r[10][16] =   0.272514;  r[10][17] =   0.530324; 
     r[10][18] =   0.241094;  r[10][19] =   1.761439; 
     r[11][ 0] =   0.369437;  r[11][ 1] =   6.529255;  r[11][ 2] =   2.529517; 
     r[11][ 3] =   0.282466;  r[11][ 4] =   0.049009;  r[11][ 5] =   2.966732; 
     r[11][ 6] =   1.731684;  r[11][ 7] =   0.269840;  r[11][ 8] =   0.525096; 
     r[11][ 9] =   0.202562;  r[11][10] =   0.146481;  r[11][11] =   0.000000; 
     r[11][12] =   0.624581;  r[11][13] =   0.024521;  r[11][14] =   0.216345; 
     r[11][15] =   0.474478;  r[11][16] =   0.965641;  r[11][17] =   0.089134; 
     r[11][18] =   0.087904;  r[11][19] =   0.124066; 
     r[12][ 0] =   0.469395;  r[12][ 1] =   0.431045;  r[12][ 2] =   0.330720; 
     r[12][ 3] =   0.190001;  r[12][ 4] =   0.409202;  r[12][ 5] =   0.456901; 
     r[12][ 6] =   0.175084;  r[12][ 7] =   0.130379;  r[12][ 8] =   0.329660; 
     r[12][ 9] =   4.831666;  r[12][10] =   3.856906;  r[12][11] =   0.624581; 
     r[12][12] =   0.000000;  r[12][13] =   0.436181;  r[12][14] =   0.164215; 
     r[12][15] =   0.285564;  r[12][16] =   2.114728;  r[12][17] =   0.201334; 
     r[12][18] =   0.189870;  r[12][19] =   3.038533; 
     r[13][ 0] =   0.138293;  r[13][ 1] =   0.065314;  r[13][ 2] =   0.073481; 
     r[13][ 3] =   0.032522;  r[13][ 4] =   0.678335;  r[13][ 5] =   0.045683; 
     r[13][ 6] =   0.043829;  r[13][ 7] =   0.050212;  r[13][ 8] =   0.453428; 
     r[13][ 9] =   0.777090;  r[13][10] =   2.500294;  r[13][11] =   0.024521; 
     r[13][12] =   0.436181;  r[13][13] =   0.000000;  r[13][14] =   0.148483; 
     r[13][15] =   0.943971;  r[13][16] =   0.138904;  r[13][17] =   0.537922; 
     r[13][18] =   5.484236;  r[13][19] =   0.593478; 
     r[14][ 0] =   1.959599;  r[14][ 1] =   0.710489;  r[14][ 2] =   0.121804; 
     r[14][ 3] =   0.127164;  r[14][ 4] =   0.123653;  r[14][ 5] =   1.608126; 
     r[14][ 6] =   0.191994;  r[14][ 7] =   0.208081;  r[14][ 8] =   1.141961; 
     r[14][ 9] =   0.098580;  r[14][10] =   1.060504;  r[14][11] =   0.216345; 
     r[14][12] =   0.164215;  r[14][13] =   0.148483;  r[14][14] =   0.000000; 
     r[14][15] =   2.788406;  r[14][16] =   1.176961;  r[14][17] =   0.069965; 
     r[14][18] =   0.113850;  r[14][19] =   0.211561; 
     r[15][ 0] =   3.887095;  r[15][ 1] =   1.001551;  r[15][ 2] =   5.057964; 
     r[15][ 3] =   0.589268;  r[15][ 4] =   2.155331;  r[15][ 5] =   0.548807; 
     r[15][ 6] =   0.312449;  r[15][ 7] =   1.874296;  r[15][ 8] =   0.743458; 
     r[15][ 9] =   0.405119;  r[15][10] =   0.592511;  r[15][11] =   0.474478; 
     r[15][12] =   0.285564;  r[15][13] =   0.943971;  r[15][14] =   2.788406; 
     r[15][15] =   0.000000;  r[15][16] =   4.777647;  r[15][17] =   0.310927; 
     r[15][18] =   0.628608;  r[15][19] =   0.408532; 
     r[16][ 0] =   4.582565;  r[16][ 1] =   0.650282;  r[16][ 2] =   2.351311; 
     r[16][ 3] =   0.425159;  r[16][ 4] =   0.469823;  r[16][ 5] =   0.523825; 
     r[16][ 6] =   0.331584;  r[16][ 7] =   0.316862;  r[16][ 8] =   0.477355; 
     r[16][ 9] =   2.553806;  r[16][10] =   0.272514;  r[16][11] =   0.965641; 
     r[16][12] =   2.114728;  r[16][13] =   0.138904;  r[16][14] =   1.176961; 
     r[16][15] =   4.777647;  r[16][16] =   0.000000;  r[16][17] =   0.080556; 
     r[16][18] =   0.201094;  r[16][19] =   1.143980; 
     r[17][ 0] =   0.084329;  r[17][ 1] =   1.257961;  r[17][ 2] =   0.027700; 
     r[17][ 3] =   0.057466;  r[17][ 4] =   1.104181;  r[17][ 5] =   0.172206; 
     r[17][ 6] =   0.114381;  r[17][ 7] =   0.544180;  r[17][ 8] =   0.128193; 
     r[17][ 9] =   0.134510;  r[17][10] =   0.530324;  r[17][11] =   0.089134; 
     r[17][12] =   0.201334;  r[17][13] =   0.537922;  r[17][14] =   0.069965; 
     r[17][15] =   0.310927;  r[17][16] =   0.080556;  r[17][17] =   0.000000; 
     r[17][18] =   0.747889;  r[17][19] =   0.239697; 
     r[18][ 0] =   0.139492;  r[18][ 1] =   0.235601;  r[18][ 2] =   0.700693; 
     r[18][ 3] =   0.453952;  r[18][ 4] =   2.114852;  r[18][ 5] =   0.254745; 
     r[18][ 6] =   0.063452;  r[18][ 7] =   0.052500;  r[18][ 8] =   5.848400; 
     r[18][ 9] =   0.303445;  r[18][10] =   0.241094;  r[18][11] =   0.087904; 
     r[18][12] =   0.189870;  r[18][13] =   5.484236;  r[18][14] =   0.113850; 
     r[18][15] =   0.628608;  r[18][16] =   0.201094;  r[18][17] =   0.747889; 
     r[18][18] =   0.000000;  r[18][19] =   0.165473; 
     r[19][ 0] =   2.924161;  r[19][ 1] =   0.171995;  r[19][ 2] =   0.164525; 
     r[19][ 3] =   0.315261;  r[19][ 4] =   0.621323;  r[19][ 5] =   0.179771; 
     r[19][ 6] =   0.465271;  r[19][ 7] =   0.470140;  r[19][ 8] =   0.121827; 
     r[19][ 9] =   9.533943;  r[19][10] =   1.761439;  r[19][11] =   0.124066; 
     r[19][12] =   3.038533;  r[19][13] =   0.593478;  r[19][14] =   0.211561; 
     r[19][15] =   0.408532;  r[19][16] =   1.143980;  r[19][17] =   0.239697; 
     r[19][18] =   0.165473;  r[19][19] =   0.000000; 
}

void mtREV24RMatrix(double **r)
{
     r[ 0][ 0] =       0.00;  r[ 0][ 1] =      23.18;  r[ 0][ 2] =      26.95; 
     r[ 0][ 3] =      17.67;  r[ 0][ 4] =      59.93;  r[ 0][ 5] =       1.90; 
     r[ 0][ 6] =       9.77;  r[ 0][ 7] =     120.71;  r[ 0][ 8] =      13.90; 
     r[ 0][ 9] =      96.49;  r[ 0][10] =      25.46;  r[ 0][11] =       8.36; 
     r[ 0][12] =     141.88;  r[ 0][13] =       6.37;  r[ 0][14] =      54.31; 
     r[ 0][15] =     387.86;  r[ 0][16] =     480.72;  r[ 0][17] =       1.90; 
     r[ 0][18] =       6.48;  r[ 0][19] =     195.06; 
     r[ 1][ 0] =      23.18;  r[ 1][ 1] =       0.00;  r[ 1][ 2] =      13.24; 
     r[ 1][ 3] =       1.90;  r[ 1][ 4] =     103.33;  r[ 1][ 5] =     220.99; 
     r[ 1][ 6] =       1.90;  r[ 1][ 7] =      23.03;  r[ 1][ 8] =     165.23; 
     r[ 1][ 9] =       1.90;  r[ 1][10] =      15.58;  r[ 1][11] =     141.40; 
     r[ 1][12] =       1.90;  r[ 1][13] =       4.69;  r[ 1][14] =      23.64; 
     r[ 1][15] =       6.04;  r[ 1][16] =       2.08;  r[ 1][17] =      21.95; 
     r[ 1][18] =       1.90;  r[ 1][19] =       7.64; 
     r[ 2][ 0] =      26.95;  r[ 2][ 1] =      13.24;  r[ 2][ 2] =       0.00; 
     r[ 2][ 3] =     794.38;  r[ 2][ 4] =      58.94;  r[ 2][ 5] =     173.56; 
     r[ 2][ 6] =      63.05;  r[ 2][ 7] =      53.30;  r[ 2][ 8] =     496.13; 
     r[ 2][ 9] =      27.10;  r[ 2][10] =      15.16;  r[ 2][11] =     608.70; 
     r[ 2][12] =      65.41;  r[ 2][13] =      15.20;  r[ 2][14] =      73.31; 
     r[ 2][15] =     494.39;  r[ 2][16] =     238.46;  r[ 2][17] =      10.68; 
     r[ 2][18] =     191.36;  r[ 2][19] =       1.90; 
     r[ 3][ 0] =      17.67;  r[ 3][ 1] =       1.90;  r[ 3][ 2] =     794.38; 
     r[ 3][ 3] =       0.00;  r[ 3][ 4] =       1.90;  r[ 3][ 5] =      55.28; 
     r[ 3][ 6] =     583.55;  r[ 3][ 7] =      56.77;  r[ 3][ 8] =     113.99; 
     r[ 3][ 9] =       4.34;  r[ 3][10] =       1.90;  r[ 3][11] =       2.31; 
     r[ 3][12] =       1.90;  r[ 3][13] =       4.98;  r[ 3][14] =      13.43; 
     r[ 3][15] =      69.02;  r[ 3][16] =      28.01;  r[ 3][17] =      19.86; 
     r[ 3][18] =      21.21;  r[ 3][19] =       1.90; 
     r[ 4][ 0] =      59.93;  r[ 4][ 1] =     103.33;  r[ 4][ 2] =      58.94; 
     r[ 4][ 3] =       1.90;  r[ 4][ 4] =       0.00;  r[ 4][ 5] =      75.24; 
     r[ 4][ 6] =       1.90;  r[ 4][ 7] =      30.71;  r[ 4][ 8] =     141.49; 
     r[ 4][ 9] =      62.73;  r[ 4][10] =      25.65;  r[ 4][11] =       1.90; 
     r[ 4][12] =       6.18;  r[ 4][13] =      70.80;  r[ 4][14] =      31.26; 
     r[ 4][15] =     277.05;  r[ 4][16] =     179.97;  r[ 4][17] =      33.60; 
     r[ 4][18] =     254.77;  r[ 4][19] =       1.90; 
     r[ 5][ 0] =       1.90;  r[ 5][ 1] =     220.99;  r[ 5][ 2] =     173.56; 
     r[ 5][ 3] =      55.28;  r[ 5][ 4] =      75.24;  r[ 5][ 5] =       0.00; 
     r[ 5][ 6] =     313.56;  r[ 5][ 7] =       6.75;  r[ 5][ 8] =     582.40; 
     r[ 5][ 9] =       8.34;  r[ 5][10] =      39.70;  r[ 5][11] =     465.58; 
     r[ 5][12] =      47.37;  r[ 5][13] =      19.11;  r[ 5][14] =     137.29; 
     r[ 5][15] =      54.11;  r[ 5][16] =      94.93;  r[ 5][17] =       1.90; 
     r[ 5][18] =      38.82;  r[ 5][19] =      19.00; 
     r[ 6][ 0] =       9.77;  r[ 6][ 1] =       1.90;  r[ 6][ 2] =      63.05; 
     r[ 6][ 3] =     583.55;  r[ 6][ 4] =       1.90;  r[ 6][ 5] =     313.56; 
     r[ 6][ 6] =       0.00;  r[ 6][ 7] =      28.28;  r[ 6][ 8] =      49.12; 
     r[ 6][ 9] =       3.31;  r[ 6][10] =       1.90;  r[ 6][11] =     313.86; 
     r[ 6][12] =       1.90;  r[ 6][13] =       2.67;  r[ 6][14] =      12.83; 
     r[ 6][15] =      54.71;  r[ 6][16] =      14.82;  r[ 6][17] =       1.90; 
     r[ 6][18] =      13.12;  r[ 6][19] =      21.14; 
     r[ 7][ 0] =     120.71;  r[ 7][ 1] =      23.03;  r[ 7][ 2] =      53.30; 
     r[ 7][ 3] =      56.77;  r[ 7][ 4] =      30.71;  r[ 7][ 5] =       6.75; 
     r[ 7][ 6] =      28.28;  r[ 7][ 7] =       0.00;  r[ 7][ 8] =       1.90; 
     r[ 7][ 9] =       5.98;  r[ 7][10] =       2.41;  r[ 7][11] =      22.73; 
     r[ 7][12] =       1.90;  r[ 7][13] =       1.90;  r[ 7][14] =       1.90; 
     r[ 7][15] =     125.93;  r[ 7][16] =      11.17;  r[ 7][17] =      10.92; 
     r[ 7][18] =       3.21;  r[ 7][19] =       2.53; 
     r[ 8][ 0] =      13.90;  r[ 8][ 1] =     165.23;  r[ 8][ 2] =     496.13; 
     r[ 8][ 3] =     113.99;  r[ 8][ 4] =     141.49;  r[ 8][ 5] =     582.40; 
     r[ 8][ 6] =      49.12;  r[ 8][ 7] =       1.90;  r[ 8][ 8] =       0.00; 
     r[ 8][ 9] =      12.26;  r[ 8][10] =      11.49;  r[ 8][11] =     127.67; 
     r[ 8][12] =      11.97;  r[ 8][13] =      48.16;  r[ 8][14] =      60.97; 
     r[ 8][15] =      77.46;  r[ 8][16] =      44.78;  r[ 8][17] =       7.08; 
     r[ 8][18] =     670.14;  r[ 8][19] =       1.90; 
     r[ 9][ 0] =      96.49;  r[ 9][ 1] =       1.90;  r[ 9][ 2] =      27.10; 
     r[ 9][ 3] =       4.34;  r[ 9][ 4] =      62.73;  r[ 9][ 5] =       8.34; 
     r[ 9][ 6] =       3.31;  r[ 9][ 7] =       5.98;  r[ 9][ 8] =      12.26; 
     r[ 9][ 9] =       0.00;  r[ 9][10] =     329.09;  r[ 9][11] =      19.57; 
     r[ 9][12] =     517.98;  r[ 9][13] =      84.67;  r[ 9][14] =      20.63; 
     r[ 9][15] =      47.70;  r[ 9][16] =     368.43;  r[ 9][17] =       1.90; 
     r[ 9][18] =      25.01;  r[ 9][19] =    1222.94; 
     r[10][ 0] =      25.46;  r[10][ 1] =      15.58;  r[10][ 2] =      15.16; 
     r[10][ 3] =       1.90;  r[10][ 4] =      25.65;  r[10][ 5] =      39.70; 
     r[10][ 6] =       1.90;  r[10][ 7] =       2.41;  r[10][ 8] =      11.49; 
     r[10][ 9] =     329.09;  r[10][10] =       0.00;  r[10][11] =      14.88; 
     r[10][12] =     537.53;  r[10][13] =     216.06;  r[10][14] =      40.10; 
     r[10][15] =      73.61;  r[10][16] =     126.40;  r[10][17] =      32.44; 
     r[10][18] =      44.15;  r[10][19] =      91.67; 
     r[11][ 0] =       8.36;  r[11][ 1] =     141.40;  r[11][ 2] =     608.70; 
     r[11][ 3] =       2.31;  r[11][ 4] =       1.90;  r[11][ 5] =     465.58; 
     r[11][ 6] =     313.86;  r[11][ 7] =      22.73;  r[11][ 8] =     127.67; 
     r[11][ 9] =      19.57;  r[11][10] =      14.88;  r[11][11] =       0.00; 
     r[11][12] =      91.37;  r[11][13] =       6.44;  r[11][14] =      50.10; 
     r[11][15] =     105.79;  r[11][16] =     136.33;  r[11][17] =      24.00; 
     r[11][18] =      51.17;  r[11][19] =       1.90; 
     r[12][ 0] =     141.88;  r[12][ 1] =       1.90;  r[12][ 2] =      65.41; 
     r[12][ 3] =       1.90;  r[12][ 4] =       6.18;  r[12][ 5] =      47.37; 
     r[12][ 6] =       1.90;  r[12][ 7] =       1.90;  r[12][ 8] =      11.97; 
     r[12][ 9] =     517.98;  r[12][10] =     537.53;  r[12][11] =      91.37; 
     r[12][12] =       0.00;  r[12][13] =      90.82;  r[12][14] =      18.84; 
     r[12][15] =     111.16;  r[12][16] =     528.17;  r[12][17] =      21.71; 
     r[12][18] =      39.96;  r[12][19] =     387.54; 
     r[13][ 0] =       6.37;  r[13][ 1] =       4.69;  r[13][ 2] =      15.20; 
     r[13][ 3] =       4.98;  r[13][ 4] =      70.80;  r[13][ 5] =      19.11; 
     r[13][ 6] =       2.67;  r[13][ 7] =       1.90;  r[13][ 8] =      48.16; 
     r[13][ 9] =      84.67;  r[13][10] =     216.06;  r[13][11] =       6.44; 
     r[13][12] =      90.82;  r[13][13] =       0.00;  r[13][14] =      17.31; 
     r[13][15] =      64.29;  r[13][16] =      33.85;  r[13][17] =       7.84; 
     r[13][18] =     465.58;  r[13][19] =       6.35; 
     r[14][ 0] =      54.31;  r[14][ 1] =      23.64;  r[14][ 2] =      73.31; 
     r[14][ 3] =      13.43;  r[14][ 4] =      31.26;  r[14][ 5] =     137.29; 
     r[14][ 6] =      12.83;  r[14][ 7] =       1.90;  r[14][ 8] =      60.97; 
     r[14][ 9] =      20.63;  r[14][10] =      40.10;  r[14][11] =      50.10; 
     r[14][12] =      18.84;  r[14][13] =      17.31;  r[14][14] =       0.00; 
     r[14][15] =     169.90;  r[14][16] =     128.22;  r[14][17] =       4.21; 
     r[14][18] =      16.21;  r[14][19] =       8.23; 
     r[15][ 0] =     387.86;  r[15][ 1] =       6.04;  r[15][ 2] =     494.39; 
     r[15][ 3] =      69.02;  r[15][ 4] =     277.05;  r[15][ 5] =      54.11; 
     r[15][ 6] =      54.71;  r[15][ 7] =     125.93;  r[15][ 8] =      77.46; 
     r[15][ 9] =      47.70;  r[15][10] =      73.61;  r[15][11] =     105.79; 
     r[15][12] =     111.16;  r[15][13] =      64.29;  r[15][14] =     169.90; 
     r[15][15] =       0.00;  r[15][16] =     597.21;  r[15][17] =      38.58; 
     r[15][18] =      64.92;  r[15][19] =       1.90; 
     r[16][ 0] =     480.72;  r[16][ 1] =       2.08;  r[16][ 2] =     238.46; 
     r[16][ 3] =      28.01;  r[16][ 4] =     179.97;  r[16][ 5] =      94.93; 
     r[16][ 6] =      14.82;  r[16][ 7] =      11.17;  r[16][ 8] =      44.78; 
     r[16][ 9] =     368.43;  r[16][10] =     126.40;  r[16][11] =     136.33; 
     r[16][12] =     528.17;  r[16][13] =      33.85;  r[16][14] =     128.22; 
     r[16][15] =     597.21;  r[16][16] =       0.00;  r[16][17] =       9.99; 
     r[16][18] =      38.73;  r[16][19] =     204.54; 
     r[17][ 0] =       1.90;  r[17][ 1] =      21.95;  r[17][ 2] =      10.68; 
     r[17][ 3] =      19.86;  r[17][ 4] =      33.60;  r[17][ 5] =       1.90; 
     r[17][ 6] =       1.90;  r[17][ 7] =      10.92;  r[17][ 8] =       7.08; 
     r[17][ 9] =       1.90;  r[17][10] =      32.44;  r[17][11] =      24.00; 
     r[17][12] =      21.71;  r[17][13] =       7.84;  r[17][14] =       4.21; 
     r[17][15] =      38.58;  r[17][16] =       9.99;  r[17][17] =       0.00; 
     r[17][18] =      26.25;  r[17][19] =       5.37; 
     r[18][ 0] =       6.48;  r[18][ 1] =       1.90;  r[18][ 2] =     191.36; 
     r[18][ 3] =      21.21;  r[18][ 4] =     254.77;  r[18][ 5] =      38.82; 
     r[18][ 6] =      13.12;  r[18][ 7] =       3.21;  r[18][ 8] =     670.14; 
     r[18][ 9] =      25.01;  r[18][10] =      44.15;  r[18][11] =      51.17; 
     r[18][12] =      39.96;  r[18][13] =     465.58;  r[18][14] =      16.21; 
     r[18][15] =      64.92;  r[18][16] =      38.73;  r[18][17] =      26.25; 
     r[18][18] =       0.00;  r[18][19] =       1.90; 
     r[19][ 0] =     195.06;  r[19][ 1] =       7.64;  r[19][ 2] =       1.90; 
     r[19][ 3] =       1.90;  r[19][ 4] =       1.90;  r[19][ 5] =      19.00; 
     r[19][ 6] =      21.14;  r[19][ 7] =       2.53;  r[19][ 8] =       1.90; 
     r[19][ 9] =    1222.94;  r[19][10] =      91.67;  r[19][11] =       1.90; 
     r[19][12] =     387.54;  r[19][13] =       6.35;  r[19][14] =       8.23; 
     r[19][15] =       1.90;  r[19][16] =     204.54;  r[19][17] =       5.37; 
     r[19][18] =       1.90;  r[19][19] =       0.00; 
}

void mtmamRMatrix(double **r)
{
     r[ 0][ 0] =      0.0;  r[ 0][ 1] =     32.0;  r[ 0][ 2] =      2.0; 
     r[ 0][ 3] =     11.0;  r[ 0][ 4] =      0.0;  r[ 0][ 5] =      0.0; 
     r[ 0][ 6] =      0.0;  r[ 0][ 7] =     78.0;  r[ 0][ 8] =      8.0; 
     r[ 0][ 9] =     75.0;  r[ 0][10] =     21.0;  r[ 0][11] =      0.0; 
     r[ 0][12] =     76.0;  r[ 0][13] =      0.0;  r[ 0][14] =     53.0; 
     r[ 0][15] =    342.0;  r[ 0][16] =    681.0;  r[ 0][17] =      5.0; 
     r[ 0][18] =      0.0;  r[ 0][19] =    398.0; 
     r[ 1][ 0] =     32.0;  r[ 1][ 1] =      0.0;  r[ 1][ 2] =      4.0; 
     r[ 1][ 3] =      0.0;  r[ 1][ 4] =    186.0;  r[ 1][ 5] =    246.0; 
     r[ 1][ 6] =      0.0;  r[ 1][ 7] =     18.0;  r[ 1][ 8] =    232.0; 
     r[ 1][ 9] =      0.0;  r[ 1][10] =      6.0;  r[ 1][11] =     50.0; 
     r[ 1][12] =      0.0;  r[ 1][13] =      0.0;  r[ 1][14] =      9.0; 
     r[ 1][15] =      3.0;  r[ 1][16] =      0.0;  r[ 1][17] =     16.0; 
     r[ 1][18] =      0.0;  r[ 1][19] =      0.0; 
     r[ 2][ 0] =      2.0;  r[ 2][ 1] =      4.0;  r[ 2][ 2] =      0.0; 
     r[ 2][ 3] =    864.0;  r[ 2][ 4] =      0.0;  r[ 2][ 5] =      8.0; 
     r[ 2][ 6] =      0.0;  r[ 2][ 7] =     47.0;  r[ 2][ 8] =    458.0; 
     r[ 2][ 9] =     19.0;  r[ 2][10] =      0.0;  r[ 2][11] =    408.0; 
     r[ 2][12] =     21.0;  r[ 2][13] =      6.0;  r[ 2][14] =     33.0; 
     r[ 2][15] =    446.0;  r[ 2][16] =    110.0;  r[ 2][17] =      6.0; 
     r[ 2][18] =    156.0;  r[ 2][19] =      0.0; 
     r[ 3][ 0] =     11.0;  r[ 3][ 1] =      0.0;  r[ 3][ 2] =    864.0; 
     r[ 3][ 3] =      0.0;  r[ 3][ 4] =      0.0;  r[ 3][ 5] =     49.0; 
     r[ 3][ 6] =    569.0;  r[ 3][ 7] =     79.0;  r[ 3][ 8] =     11.0; 
     r[ 3][ 9] =      0.0;  r[ 3][10] =      0.0;  r[ 3][11] =      0.0; 
     r[ 3][12] =      0.0;  r[ 3][13] =      5.0;  r[ 3][14] =      2.0; 
     r[ 3][15] =     16.0;  r[ 3][16] =      0.0;  r[ 3][17] =      0.0; 
     r[ 3][18] =      0.0;  r[ 3][19] =     10.0; 
     r[ 4][ 0] =      0.0;  r[ 4][ 1] =    186.0;  r[ 4][ 2] =      0.0; 
     r[ 4][ 3] =      0.0;  r[ 4][ 4] =      0.0;  r[ 4][ 5] =      0.0; 
     r[ 4][ 6] =      0.0;  r[ 4][ 7] =      0.0;  r[ 4][ 8] =    305.0; 
     r[ 4][ 9] =     41.0;  r[ 4][10] =     27.0;  r[ 4][11] =      0.0; 
     r[ 4][12] =      0.0;  r[ 4][13] =      7.0;  r[ 4][14] =      0.0; 
     r[ 4][15] =    347.0;  r[ 4][16] =    114.0;  r[ 4][17] =     65.0; 
     r[ 4][18] =    530.0;  r[ 4][19] =      0.0; 
     r[ 5][ 0] =      0.0;  r[ 5][ 1] =    246.0;  r[ 5][ 2] =      8.0; 
     r[ 5][ 3] =     49.0;  r[ 5][ 4] =      0.0;  r[ 5][ 5] =      0.0; 
     r[ 5][ 6] =    274.0;  r[ 5][ 7] =      0.0;  r[ 5][ 8] =    550.0; 
     r[ 5][ 9] =      0.0;  r[ 5][10] =     20.0;  r[ 5][11] =    242.0; 
     r[ 5][12] =     22.0;  r[ 5][13] =      0.0;  r[ 5][14] =     51.0; 
     r[ 5][15] =     30.0;  r[ 5][16] =      0.0;  r[ 5][17] =      0.0; 
     r[ 5][18] =     54.0;  r[ 5][19] =     33.0; 
     r[ 6][ 0] =      0.0;  r[ 6][ 1] =      0.0;  r[ 6][ 2] =      0.0; 
     r[ 6][ 3] =    569.0;  r[ 6][ 4] =      0.0;  r[ 6][ 5] =    274.0; 
     r[ 6][ 6] =      0.0;  r[ 6][ 7] =     22.0;  r[ 6][ 8] =     22.0; 
     r[ 6][ 9] =      0.0;  r[ 6][10] =      0.0;  r[ 6][11] =    215.0; 
     r[ 6][12] =      0.0;  r[ 6][13] =      0.0;  r[ 6][14] =      0.0; 
     r[ 6][15] =     21.0;  r[ 6][16] =      4.0;  r[ 6][17] =      0.0; 
     r[ 6][18] =      0.0;  r[ 6][19] =     20.0; 
     r[ 7][ 0] =     78.0;  r[ 7][ 1] =     18.0;  r[ 7][ 2] =     47.0; 
     r[ 7][ 3] =     79.0;  r[ 7][ 4] =      0.0;  r[ 7][ 5] =      0.0; 
     r[ 7][ 6] =     22.0;  r[ 7][ 7] =      0.0;  r[ 7][ 8] =      0.0; 
     r[ 7][ 9] =      0.0;  r[ 7][10] =      0.0;  r[ 7][11] =      0.0; 
     r[ 7][12] =      0.0;  r[ 7][13] =      0.0;  r[ 7][14] =      0.0; 
     r[ 7][15] =    112.0;  r[ 7][16] =      0.0;  r[ 7][17] =      0.0; 
     r[ 7][18] =      1.0;  r[ 7][19] =      5.0; 
     r[ 8][ 0] =      8.0;  r[ 8][ 1] =    232.0;  r[ 8][ 2] =    458.0; 
     r[ 8][ 3] =     11.0;  r[ 8][ 4] =    305.0;  r[ 8][ 5] =    550.0; 
     r[ 8][ 6] =     22.0;  r[ 8][ 7] =      0.0;  r[ 8][ 8] =      0.0; 
     r[ 8][ 9] =      0.0;  r[ 8][10] =     26.0;  r[ 8][11] =      0.0; 
     r[ 8][12] =      0.0;  r[ 8][13] =      0.0;  r[ 8][14] =     53.0; 
     r[ 8][15] =     20.0;  r[ 8][16] =      1.0;  r[ 8][17] =      0.0; 
     r[ 8][18] =   1525.0;  r[ 8][19] =      0.0; 
     r[ 9][ 0] =     75.0;  r[ 9][ 1] =      0.0;  r[ 9][ 2] =     19.0; 
     r[ 9][ 3] =      0.0;  r[ 9][ 4] =     41.0;  r[ 9][ 5] =      0.0; 
     r[ 9][ 6] =      0.0;  r[ 9][ 7] =      0.0;  r[ 9][ 8] =      0.0; 
     r[ 9][ 9] =      0.0;  r[ 9][10] =    232.0;  r[ 9][11] =      6.0; 
     r[ 9][12] =    378.0;  r[ 9][13] =     57.0;  r[ 9][14] =      5.0; 
     r[ 9][15] =      0.0;  r[ 9][16] =    360.0;  r[ 9][17] =      0.0; 
     r[ 9][18] =     16.0;  r[ 9][19] =   2220.0; 
     r[10][ 0] =     21.0;  r[10][ 1] =      6.0;  r[10][ 2] =      0.0; 
     r[10][ 3] =      0.0;  r[10][ 4] =     27.0;  r[10][ 5] =     20.0; 
     r[10][ 6] =      0.0;  r[10][ 7] =      0.0;  r[10][ 8] =     26.0; 
     r[10][ 9] =    232.0;  r[10][10] =      0.0;  r[10][11] =      4.0; 
     r[10][12] =    609.0;  r[10][13] =    246.0;  r[10][14] =     43.0; 
     r[10][15] =     74.0;  r[10][16] =     34.0;  r[10][17] =     12.0; 
     r[10][18] =     25.0;  r[10][19] =    100.0; 
     r[11][ 0] =      0.0;  r[11][ 1] =     50.0;  r[11][ 2] =    408.0; 
     r[11][ 3] =      0.0;  r[11][ 4] =      0.0;  r[11][ 5] =    242.0; 
     r[11][ 6] =    215.0;  r[11][ 7] =      0.0;  r[11][ 8] =      0.0; 
     r[11][ 9] =      6.0;  r[11][10] =      4.0;  r[11][11] =      0.0; 
     r[11][12] =     59.0;  r[11][13] =      0.0;  r[11][14] =     18.0; 
     r[11][15] =     65.0;  r[11][16] =     50.0;  r[11][17] =      0.0; 
     r[11][18] =     67.0;  r[11][19] =      0.0; 
     r[12][ 0] =     76.0;  r[12][ 1] =      0.0;  r[12][ 2] =     21.0; 
     r[12][ 3] =      0.0;  r[12][ 4] =      0.0;  r[12][ 5] =     22.0; 
     r[12][ 6] =      0.0;  r[12][ 7] =      0.0;  r[12][ 8] =      0.0; 
     r[12][ 9] =    378.0;  r[12][10] =    609.0;  r[12][11] =     59.0; 
     r[12][12] =      0.0;  r[12][13] =     11.0;  r[12][14] =      0.0; 
     r[12][15] =     47.0;  r[12][16] =    691.0;  r[12][17] =     13.0; 
     r[12][18] =      0.0;  r[12][19] =    832.0; 
     r[13][ 0] =      0.0;  r[13][ 1] =      0.0;  r[13][ 2] =      6.0; 
     r[13][ 3] =      5.0;  r[13][ 4] =      7.0;  r[13][ 5] =      0.0; 
     r[13][ 6] =      0.0;  r[13][ 7] =      0.0;  r[13][ 8] =      0.0; 
     r[13][ 9] =     57.0;  r[13][10] =    246.0;  r[13][11] =      0.0; 
     r[13][12] =     11.0;  r[13][13] =      0.0;  r[13][14] =     17.0; 
     r[13][15] =     90.0;  r[13][16] =      8.0;  r[13][17] =      0.0; 
     r[13][18] =    682.0;  r[13][19] =      6.0; 
     r[14][ 0] =     53.0;  r[14][ 1] =      9.0;  r[14][ 2] =     33.0; 
     r[14][ 3] =      2.0;  r[14][ 4] =      0.0;  r[14][ 5] =     51.0; 
     r[14][ 6] =      0.0;  r[14][ 7] =      0.0;  r[14][ 8] =     53.0; 
     r[14][ 9] =      5.0;  r[14][10] =     43.0;  r[14][11] =     18.0; 
     r[14][12] =      0.0;  r[14][13] =     17.0;  r[14][14] =      0.0; 
     r[14][15] =    202.0;  r[14][16] =     78.0;  r[14][17] =      7.0; 
     r[14][18] =      8.0;  r[14][19] =      0.0; 
     r[15][ 0] =    342.0;  r[15][ 1] =      3.0;  r[15][ 2] =    446.0; 
     r[15][ 3] =     16.0;  r[15][ 4] =    347.0;  r[15][ 5] =     30.0; 
     r[15][ 6] =     21.0;  r[15][ 7] =    112.0;  r[15][ 8] =     20.0; 
     r[15][ 9] =      0.0;  r[15][10] =     74.0;  r[15][11] =     65.0; 
     r[15][12] =     47.0;  r[15][13] =     90.0;  r[15][14] =    202.0; 
     r[15][15] =      0.0;  r[15][16] =    614.0;  r[15][17] =     17.0; 
     r[15][18] =    107.0;  r[15][19] =      0.0; 
     r[16][ 0] =    681.0;  r[16][ 1] =      0.0;  r[16][ 2] =    110.0; 
     r[16][ 3] =      0.0;  r[16][ 4] =    114.0;  r[16][ 5] =      0.0; 
     r[16][ 6] =      4.0;  r[16][ 7] =      0.0;  r[16][ 8] =      1.0; 
     r[16][ 9] =    360.0;  r[16][10] =     34.0;  r[16][11] =     50.0; 
     r[16][12] =    691.0;  r[16][13] =      8.0;  r[16][14] =     78.0; 
     r[16][15] =    614.0;  r[16][16] =      0.0;  r[16][17] =      0.0; 
     r[16][18] =      0.0;  r[16][19] =    237.0; 
     r[17][ 0] =      5.0;  r[17][ 1] =     16.0;  r[17][ 2] =      6.0; 
     r[17][ 3] =      0.0;  r[17][ 4] =     65.0;  r[17][ 5] =      0.0; 
     r[17][ 6] =      0.0;  r[17][ 7] =      0.0;  r[17][ 8] =      0.0; 
     r[17][ 9] =      0.0;  r[17][10] =     12.0;  r[17][11] =      0.0; 
     r[17][12] =     13.0;  r[17][13] =      0.0;  r[17][14] =      7.0; 
     r[17][15] =     17.0;  r[17][16] =      0.0;  r[17][17] =      0.0; 
     r[17][18] =     14.0;  r[17][19] =      0.0; 
     r[18][ 0] =      0.0;  r[18][ 1] =      0.0;  r[18][ 2] =    156.0; 
     r[18][ 3] =      0.0;  r[18][ 4] =    530.0;  r[18][ 5] =     54.0; 
     r[18][ 6] =      0.0;  r[18][ 7] =      1.0;  r[18][ 8] =   1525.0; 
     r[18][ 9] =     16.0;  r[18][10] =     25.0;  r[18][11] =     67.0; 
     r[18][12] =      0.0;  r[18][13] =    682.0;  r[18][14] =      8.0; 
     r[18][15] =    107.0;  r[18][16] =      0.0;  r[18][17] =     14.0; 
     r[18][18] =      0.0;  r[18][19] =      0.0; 
     r[19][ 0] =    398.0;  r[19][ 1] =      0.0;  r[19][ 2] =      0.0; 
     r[19][ 3] =     10.0;  r[19][ 4] =      0.0;  r[19][ 5] =     33.0; 
     r[19][ 6] =     20.0;  r[19][ 7] =      5.0;  r[19][ 8] =      0.0; 
     r[19][ 9] =   2220.0;  r[19][10] =    100.0;  r[19][11] =      0.0; 
     r[19][12] =    832.0;  r[19][13] =      6.0;  r[19][14] =      0.0; 
     r[19][15] =      0.0;  r[19][16] =    237.0;  r[19][17] =      0.0; 
     r[19][18] =      0.0;  r[19][19] =      0.0; 
}

void wagRMatrix(double **r)
{
     r[ 0][ 0] =   0.000000;  r[ 0][ 1] =   0.551571;  r[ 0][ 2] =   0.509848; 
     r[ 0][ 3] =   0.738998;  r[ 0][ 4] =   1.027040;  r[ 0][ 5] =   0.908598; 
     r[ 0][ 6] =   1.582850;  r[ 0][ 7] =   1.416720;  r[ 0][ 8] =   0.316954; 
     r[ 0][ 9] =   0.193335;  r[ 0][10] =   0.397915;  r[ 0][11] =   0.906265; 
     r[ 0][12] =   0.893496;  r[ 0][13] =   0.210494;  r[ 0][14] =   1.438550; 
     r[ 0][15] =   3.370790;  r[ 0][16] =   2.121110;  r[ 0][17] =   0.113133; 
     r[ 0][18] =   0.240735;  r[ 0][19] =   2.006010; 
     r[ 1][ 0] =   0.551571;  r[ 1][ 1] =   0.000000;  r[ 1][ 2] =   0.635346; 
     r[ 1][ 3] =   0.147304;  r[ 1][ 4] =   0.528191;  r[ 1][ 5] =   3.035500; 
     r[ 1][ 6] =   0.439157;  r[ 1][ 7] =   0.584665;  r[ 1][ 8] =   2.137150; 
     r[ 1][ 9] =   0.186979;  r[ 1][10] =   0.497671;  r[ 1][11] =   5.351420; 
     r[ 1][12] =   0.683162;  r[ 1][13] =   0.102711;  r[ 1][14] =   0.679489; 
     r[ 1][15] =   1.224190;  r[ 1][16] =   0.554413;  r[ 1][17] =   1.163920; 
     r[ 1][18] =   0.381533;  r[ 1][19] =   0.251849; 
     r[ 2][ 0] =   0.509848;  r[ 2][ 1] =   0.635346;  r[ 2][ 2] =   0.000000; 
     r[ 2][ 3] =   5.429420;  r[ 2][ 4] =   0.265256;  r[ 2][ 5] =   1.543640; 
     r[ 2][ 6] =   0.947198;  r[ 2][ 7] =   1.125560;  r[ 2][ 8] =   3.956290; 
     r[ 2][ 9] =   0.554236;  r[ 2][10] =   0.131528;  r[ 2][11] =   3.012010; 
     r[ 2][12] =   0.198221;  r[ 2][13] =   0.096162;  r[ 2][14] =   0.195081; 
     r[ 2][15] =   3.974230;  r[ 2][16] =   2.030060;  r[ 2][17] =   0.071917; 
     r[ 2][18] =   1.086000;  r[ 2][19] =   0.196246; 
     r[ 3][ 0] =   0.738998;  r[ 3][ 1] =   0.147304;  r[ 3][ 2] =   5.429420; 
     r[ 3][ 3] =   0.000000;  r[ 3][ 4] =   0.030295;  r[ 3][ 5] =   0.616783; 
     r[ 3][ 6] =   6.174160;  r[ 3][ 7] =   0.865584;  r[ 3][ 8] =   0.930676; 
     r[ 3][ 9] =   0.039437;  r[ 3][10] =   0.084805;  r[ 3][11] =   0.479855; 
     r[ 3][12] =   0.103754;  r[ 3][13] =   0.046730;  r[ 3][14] =   0.423984; 
     r[ 3][15] =   1.071760;  r[ 3][16] =   0.374866;  r[ 3][17] =   0.129767; 
     r[ 3][18] =   0.325711;  r[ 3][19] =   0.152335; 
     r[ 4][ 0] =   1.027040;  r[ 4][ 1] =   0.528191;  r[ 4][ 2] =   0.265256; 
     r[ 4][ 3] =   0.030295;  r[ 4][ 4] =   0.000000;  r[ 4][ 5] =   0.098818; 
     r[ 4][ 6] =   0.021352;  r[ 4][ 7] =   0.306674;  r[ 4][ 8] =   0.248972; 
     r[ 4][ 9] =   0.170135;  r[ 4][10] =   0.384287;  r[ 4][11] =   0.074034; 
     r[ 4][12] =   0.390482;  r[ 4][13] =   0.398020;  r[ 4][14] =   0.109404; 
     r[ 4][15] =   1.407660;  r[ 4][16] =   0.512984;  r[ 4][17] =   0.717070; 
     r[ 4][18] =   0.543833;  r[ 4][19] =   1.002140; 
     r[ 5][ 0] =   0.908598;  r[ 5][ 1] =   3.035500;  r[ 5][ 2] =   1.543640; 
     r[ 5][ 3] =   0.616783;  r[ 5][ 4] =   0.098818;  r[ 5][ 5] =   0.000000; 
     r[ 5][ 6] =   5.469470;  r[ 5][ 7] =   0.330052;  r[ 5][ 8] =   4.294110; 
     r[ 5][ 9] =   0.113917;  r[ 5][10] =   0.869489;  r[ 5][11] =   3.894900; 
     r[ 5][12] =   1.545260;  r[ 5][13] =   0.099921;  r[ 5][14] =   0.933372; 
     r[ 5][15] =   1.028870;  r[ 5][16] =   0.857928;  r[ 5][17] =   0.215737; 
     r[ 5][18] =   0.227710;  r[ 5][19] =   0.301281; 
     r[ 6][ 0] =   1.582850;  r[ 6][ 1] =   0.439157;  r[ 6][ 2] =   0.947198; 
     r[ 6][ 3] =   6.174160;  r[ 6][ 4] =   0.021352;  r[ 6][ 5] =   5.469470; 
     r[ 6][ 6] =   0.000000;  r[ 6][ 7] =   0.567717;  r[ 6][ 8] =   0.570025; 
     r[ 6][ 9] =   0.127395;  r[ 6][10] =   0.154263;  r[ 6][11] =   2.584430; 
     r[ 6][12] =   0.315124;  r[ 6][13] =   0.081134;  r[ 6][14] =   0.682355; 
     r[ 6][15] =   0.704939;  r[ 6][16] =   0.822765;  r[ 6][17] =   0.156557; 
     r[ 6][18] =   0.196303;  r[ 6][19] =   0.588731; 
     r[ 7][ 0] =   1.416720;  r[ 7][ 1] =   0.584665;  r[ 7][ 2] =   1.125560; 
     r[ 7][ 3] =   0.865584;  r[ 7][ 4] =   0.306674;  r[ 7][ 5] =   0.330052; 
     r[ 7][ 6] =   0.567717;  r[ 7][ 7] =   0.000000;  r[ 7][ 8] =   0.249410; 
     r[ 7][ 9] =   0.030450;  r[ 7][10] =   0.061304;  r[ 7][11] =   0.373558; 
     r[ 7][12] =   0.174100;  r[ 7][13] =   0.049931;  r[ 7][14] =   0.243570; 
     r[ 7][15] =   1.341820;  r[ 7][16] =   0.225833;  r[ 7][17] =   0.336983; 
     r[ 7][18] =   0.103604;  r[ 7][19] =   0.187247; 
     r[ 8][ 0] =   0.316954;  r[ 8][ 1] =   2.137150;  r[ 8][ 2] =   3.956290; 
     r[ 8][ 3] =   0.930676;  r[ 8][ 4] =   0.248972;  r[ 8][ 5] =   4.294110; 
     r[ 8][ 6] =   0.570025;  r[ 8][ 7] =   0.249410;  r[ 8][ 8] =   0.000000; 
     r[ 8][ 9] =   0.138190;  r[ 8][10] =   0.499462;  r[ 8][11] =   0.890432; 
     r[ 8][12] =   0.404141;  r[ 8][13] =   0.679371;  r[ 8][14] =   0.696198; 
     r[ 8][15] =   0.740169;  r[ 8][16] =   0.473307;  r[ 8][17] =   0.262569; 
     r[ 8][18] =   3.873440;  r[ 8][19] =   0.118358; 
     r[ 9][ 0] =   0.193335;  r[ 9][ 1] =   0.186979;  r[ 9][ 2] =   0.554236; 
     r[ 9][ 3] =   0.039437;  r[ 9][ 4] =   0.170135;  r[ 9][ 5] =   0.113917; 
     r[ 9][ 6] =   0.127395;  r[ 9][ 7] =   0.030450;  r[ 9][ 8] =   0.138190; 
     r[ 9][ 9] =   0.000000;  r[ 9][10] =   3.170970;  r[ 9][11] =   0.323832; 
     r[ 9][12] =   4.257460;  r[ 9][13] =   1.059470;  r[ 9][14] =   0.099929; 
     r[ 9][15] =   0.319440;  r[ 9][16] =   1.458160;  r[ 9][17] =   0.212483; 
     r[ 9][18] =   0.420170;  r[ 9][19] =   7.821300; 
     r[10][ 0] =   0.397915;  r[10][ 1] =   0.497671;  r[10][ 2] =   0.131528; 
     r[10][ 3] =   0.084805;  r[10][ 4] =   0.384287;  r[10][ 5] =   0.869489; 
     r[10][ 6] =   0.154263;  r[10][ 7] =   0.061304;  r[10][ 8] =   0.499462; 
     r[10][ 9] =   3.170970;  r[10][10] =   0.000000;  r[10][11] =   0.257555; 
     r[10][12] =   4.854020;  r[10][13] =   2.115170;  r[10][14] =   0.415844; 
     r[10][15] =   0.344739;  r[10][16] =   0.326622;  r[10][17] =   0.665309; 
     r[10][18] =   0.398618;  r[10][19] =   1.800340; 
     r[11][ 0] =   0.906265;  r[11][ 1] =   5.351420;  r[11][ 2] =   3.012010; 
     r[11][ 3] =   0.479855;  r[11][ 4] =   0.074034;  r[11][ 5] =   3.894900; 
     r[11][ 6] =   2.584430;  r[11][ 7] =   0.373558;  r[11][ 8] =   0.890432; 
     r[11][ 9] =   0.323832;  r[11][10] =   0.257555;  r[11][11] =   0.000000; 
     r[11][12] =   0.934276;  r[11][13] =   0.088836;  r[11][14] =   0.556896; 
     r[11][15] =   0.967130;  r[11][16] =   1.386980;  r[11][17] =   0.137505; 
     r[11][18] =   0.133264;  r[11][19] =   0.305434; 
     r[12][ 0] =   0.893496;  r[12][ 1] =   0.683162;  r[12][ 2] =   0.198221; 
     r[12][ 3] =   0.103754;  r[12][ 4] =   0.390482;  r[12][ 5] =   1.545260; 
     r[12][ 6] =   0.315124;  r[12][ 7] =   0.174100;  r[12][ 8] =   0.404141; 
     r[12][ 9] =   4.257460;  r[12][10] =   4.854020;  r[12][11] =   0.934276; 
     r[12][12] =   0.000000;  r[12][13] =   1.190630;  r[12][14] =   0.171329; 
     r[12][15] =   0.493905;  r[12][16] =   1.516120;  r[12][17] =   0.515706; 
     r[12][18] =   0.428437;  r[12][19] =   2.058450; 
     r[13][ 0] =   0.210494;  r[13][ 1] =   0.102711;  r[13][ 2] =   0.096162; 
     r[13][ 3] =   0.046730;  r[13][ 4] =   0.398020;  r[13][ 5] =   0.099921; 
     r[13][ 6] =   0.081134;  r[13][ 7] =   0.049931;  r[13][ 8] =   0.679371; 
     r[13][ 9] =   1.059470;  r[13][10] =   2.115170;  r[13][11] =   0.088836; 
     r[13][12] =   1.190630;  r[13][13] =   0.000000;  r[13][14] =   0.161444; 
     r[13][15] =   0.545931;  r[13][16] =   0.171903;  r[13][17] =   1.529640; 
     r[13][18] =   6.454280;  r[13][19] =   0.649892; 
     r[14][ 0] =   1.438550;  r[14][ 1] =   0.679489;  r[14][ 2] =   0.195081; 
     r[14][ 3] =   0.423984;  r[14][ 4] =   0.109404;  r[14][ 5] =   0.933372; 
     r[14][ 6] =   0.682355;  r[14][ 7] =   0.243570;  r[14][ 8] =   0.696198; 
     r[14][ 9] =   0.099929;  r[14][10] =   0.415844;  r[14][11] =   0.556896; 
     r[14][12] =   0.171329;  r[14][13] =   0.161444;  r[14][14] =   0.000000; 
     r[14][15] =   1.613280;  r[14][16] =   0.795384;  r[14][17] =   0.139405; 
     r[14][18] =   0.216046;  r[14][19] =   0.314887; 
     r[15][ 0] =   3.370790;  r[15][ 1] =   1.224190;  r[15][ 2] =   3.974230; 
     r[15][ 3] =   1.071760;  r[15][ 4] =   1.407660;  r[15][ 5] =   1.028870; 
     r[15][ 6] =   0.704939;  r[15][ 7] =   1.341820;  r[15][ 8] =   0.740169; 
     r[15][ 9] =   0.319440;  r[15][10] =   0.344739;  r[15][11] =   0.967130; 
     r[15][12] =   0.493905;  r[15][13] =   0.545931;  r[15][14] =   1.613280; 
     r[15][15] =   0.000000;  r[15][16] =   4.378020;  r[15][17] =   0.523742; 
     r[15][18] =   0.786993;  r[15][19] =   0.232739; 
     r[16][ 0] =   2.121110;  r[16][ 1] =   0.554413;  r[16][ 2] =   2.030060; 
     r[16][ 3] =   0.374866;  r[16][ 4] =   0.512984;  r[16][ 5] =   0.857928; 
     r[16][ 6] =   0.822765;  r[16][ 7] =   0.225833;  r[16][ 8] =   0.473307; 
     r[16][ 9] =   1.458160;  r[16][10] =   0.326622;  r[16][11] =   1.386980; 
     r[16][12] =   1.516120;  r[16][13] =   0.171903;  r[16][14] =   0.795384; 
     r[16][15] =   4.378020;  r[16][16] =   0.000000;  r[16][17] =   0.110864; 
     r[16][18] =   0.291148;  r[16][19] =   1.388230; 
     r[17][ 0] =   0.113133;  r[17][ 1] =   1.163920;  r[17][ 2] =   0.071917; 
     r[17][ 3] =   0.129767;  r[17][ 4] =   0.717070;  r[17][ 5] =   0.215737; 
     r[17][ 6] =   0.156557;  r[17][ 7] =   0.336983;  r[17][ 8] =   0.262569; 
     r[17][ 9] =   0.212483;  r[17][10] =   0.665309;  r[17][11] =   0.137505; 
     r[17][12] =   0.515706;  r[17][13] =   1.529640;  r[17][14] =   0.139405; 
     r[17][15] =   0.523742;  r[17][16] =   0.110864;  r[17][17] =   0.000000; 
     r[17][18] =   2.485390;  r[17][19] =   0.365369; 
     r[18][ 0] =   0.240735;  r[18][ 1] =   0.381533;  r[18][ 2] =   1.086000; 
     r[18][ 3] =   0.325711;  r[18][ 4] =   0.543833;  r[18][ 5] =   0.227710; 
     r[18][ 6] =   0.196303;  r[18][ 7] =   0.103604;  r[18][ 8] =   3.873440; 
     r[18][ 9] =   0.420170;  r[18][10] =   0.398618;  r[18][11] =   0.133264; 
     r[18][12] =   0.428437;  r[18][13] =   6.454280;  r[18][14] =   0.216046; 
     r[18][15] =   0.786993;  r[18][16] =   0.291148;  r[18][17] =   2.485390; 
     r[18][18] =   0.000000;  r[18][19] =   0.314730; 
     r[19][ 0] =   2.006010;  r[19][ 1] =   0.251849;  r[19][ 2] =   0.196246; 
     r[19][ 3] =   0.152335;  r[19][ 4] =   1.002140;  r[19][ 5] =   0.301281; 
     r[19][ 6] =   0.588731;  r[19][ 7] =   0.187247;  r[19][ 8] =   0.118358; 
     r[19][ 9] =   7.821300;  r[19][10] =   1.800340;  r[19][11] =   0.305434; 
     r[19][12] =   2.058450;  r[19][13] =   0.649892;  r[19][14] =   0.314887; 
     r[19][15] =   0.232739;  r[19][16] =   1.388230;  r[19][17] =   0.365369; 
     r[19][18] =   0.314730;  r[19][19] =   0.000000; 
}

void rtRevRMatrix(double **r)
{
      r[ 0][ 0] =        0.0;  r[ 0][ 1] =       34.0;  r[ 0][ 2] =       51.0; 
      r[ 0][ 3] =       10.0;  r[ 0][ 4] =      439.0;  r[ 0][ 5] =       32.0; 
      r[ 0][ 6] =       81.0;  r[ 0][ 7] =      135.0;  r[ 0][ 8] =       30.0; 
      r[ 0][ 9] =        1.0;  r[ 0][10] =       45.0;  r[ 0][11] =       38.0; 
      r[ 0][12] =      235.0;  r[ 0][13] =        1.0;  r[ 0][14] =       97.0; 
      r[ 0][15] =      460.0;  r[ 0][16] =      258.0;  r[ 0][17] =        5.0; 
      r[ 0][18] =       55.0;  r[ 0][19] =      197.0; 
      r[ 1][ 0] =       34.0;  r[ 1][ 1] =        0.0;  r[ 1][ 2] =       35.0; 
      r[ 1][ 3] =       30.0;  r[ 1][ 4] =       92.0;  r[ 1][ 5] =      221.0; 
      r[ 1][ 6] =       10.0;  r[ 1][ 7] =       41.0;  r[ 1][ 8] =       90.0; 
      r[ 1][ 9] =       24.0;  r[ 1][10] =       18.0;  r[ 1][11] =      593.0; 
      r[ 1][12] =       57.0;  r[ 1][13] =        7.0;  r[ 1][14] =       24.0; 
      r[ 1][15] =      102.0;  r[ 1][16] =       64.0;  r[ 1][17] =       13.0; 
      r[ 1][18] =       47.0;  r[ 1][19] =       29.0; 
      r[ 2][ 0] =       51.0;  r[ 2][ 1] =       35.0;  r[ 2][ 2] =        0.0; 
      r[ 2][ 3] =      384.0;  r[ 2][ 4] =      128.0;  r[ 2][ 5] =      236.0; 
      r[ 2][ 6] =       79.0;  r[ 2][ 7] =       94.0;  r[ 2][ 8] =      320.0; 
      r[ 2][ 9] =       35.0;  r[ 2][10] =       15.0;  r[ 2][11] =      123.0; 
      r[ 2][12] =        1.0;  r[ 2][13] =       49.0;  r[ 2][14] =       33.0; 
      r[ 2][15] =      294.0;  r[ 2][16] =      148.0;  r[ 2][17] =       16.0; 
      r[ 2][18] =       28.0;  r[ 2][19] =       21.0; 
      r[ 3][ 0] =       10.0;  r[ 3][ 1] =       30.0;  r[ 3][ 2] =      384.0; 
      r[ 3][ 3] =        0.0;  r[ 3][ 4] =        1.0;  r[ 3][ 5] =       78.0; 
      r[ 3][ 6] =      542.0;  r[ 3][ 7] =       61.0;  r[ 3][ 8] =       91.0; 
      r[ 3][ 9] =        1.0;  r[ 3][10] =        5.0;  r[ 3][11] =       20.0; 
      r[ 3][12] =        1.0;  r[ 3][13] =        1.0;  r[ 3][14] =       55.0; 
      r[ 3][15] =      136.0;  r[ 3][16] =       55.0;  r[ 3][17] =        1.0; 
      r[ 3][18] =        1.0;  r[ 3][19] =        6.0; 
      r[ 4][ 0] =      439.0;  r[ 4][ 1] =       92.0;  r[ 4][ 2] =      128.0; 
      r[ 4][ 3] =        1.0;  r[ 4][ 4] =        0.0;  r[ 4][ 5] =       70.0; 
      r[ 4][ 6] =        1.0;  r[ 4][ 7] =       48.0;  r[ 4][ 8] =      124.0; 
      r[ 4][ 9] =      104.0;  r[ 4][10] =      110.0;  r[ 4][11] =       16.0; 
      r[ 4][12] =      156.0;  r[ 4][13] =       70.0;  r[ 4][14] =        1.0; 
      r[ 4][15] =       75.0;  r[ 4][16] =      117.0;  r[ 4][17] =       55.0; 
      r[ 4][18] =      131.0;  r[ 4][19] =      295.0; 
      r[ 5][ 0] =       32.0;  r[ 5][ 1] =      221.0;  r[ 5][ 2] =      236.0; 
      r[ 5][ 3] =       78.0;  r[ 5][ 4] =       70.0;  r[ 5][ 5] =        0.0; 
      r[ 5][ 6] =      372.0;  r[ 5][ 7] =       18.0;  r[ 5][ 8] =      387.0; 
      r[ 5][ 9] =       33.0;  r[ 5][10] =       54.0;  r[ 5][11] =      309.0; 
      r[ 5][12] =      158.0;  r[ 5][13] =        1.0;  r[ 5][14] =       68.0; 
      r[ 5][15] =      225.0;  r[ 5][16] =      146.0;  r[ 5][17] =       10.0; 
      r[ 5][18] =       45.0;  r[ 5][19] =       36.0; 
      r[ 6][ 0] =       81.0;  r[ 6][ 1] =       10.0;  r[ 6][ 2] =       79.0; 
      r[ 6][ 3] =      542.0;  r[ 6][ 4] =        1.0;  r[ 6][ 5] =      372.0; 
      r[ 6][ 6] =        0.0;  r[ 6][ 7] =       70.0;  r[ 6][ 8] =       34.0; 
      r[ 6][ 9] =        1.0;  r[ 6][10] =       21.0;  r[ 6][11] =      141.0; 
      r[ 6][12] =        1.0;  r[ 6][13] =        1.0;  r[ 6][14] =       52.0; 
      r[ 6][15] =       95.0;  r[ 6][16] =       82.0;  r[ 6][17] =       17.0; 
      r[ 6][18] =        1.0;  r[ 6][19] =       35.0; 
      r[ 7][ 0] =      135.0;  r[ 7][ 1] =       41.0;  r[ 7][ 2] =       94.0; 
      r[ 7][ 3] =       61.0;  r[ 7][ 4] =       48.0;  r[ 7][ 5] =       18.0; 
      r[ 7][ 6] =       70.0;  r[ 7][ 7] =        0.0;  r[ 7][ 8] =       68.0; 
      r[ 7][ 9] =        1.0;  r[ 7][10] =        3.0;  r[ 7][11] =       30.0; 
      r[ 7][12] =       37.0;  r[ 7][13] =        7.0;  r[ 7][14] =       17.0; 
      r[ 7][15] =      152.0;  r[ 7][16] =        7.0;  r[ 7][17] =       23.0; 
      r[ 7][18] =       21.0;  r[ 7][19] =        3.0; 
      r[ 8][ 0] =       30.0;  r[ 8][ 1] =       90.0;  r[ 8][ 2] =      320.0; 
      r[ 8][ 3] =       91.0;  r[ 8][ 4] =      124.0;  r[ 8][ 5] =      387.0; 
      r[ 8][ 6] =       34.0;  r[ 8][ 7] =       68.0;  r[ 8][ 8] =        0.0; 
      r[ 8][ 9] =       34.0;  r[ 8][10] =       51.0;  r[ 8][11] =       76.0; 
      r[ 8][12] =      116.0;  r[ 8][13] =      141.0;  r[ 8][14] =       44.0; 
      r[ 8][15] =      183.0;  r[ 8][16] =       49.0;  r[ 8][17] =       48.0; 
      r[ 8][18] =      307.0;  r[ 8][19] =        1.0; 
      r[ 9][ 0] =        1.0;  r[ 9][ 1] =       24.0;  r[ 9][ 2] =       35.0; 
      r[ 9][ 3] =        1.0;  r[ 9][ 4] =      104.0;  r[ 9][ 5] =       33.0; 
      r[ 9][ 6] =        1.0;  r[ 9][ 7] =        1.0;  r[ 9][ 8] =       34.0; 
      r[ 9][ 9] =        0.0;  r[ 9][10] =      385.0;  r[ 9][11] =       34.0; 
      r[ 9][12] =      375.0;  r[ 9][13] =       64.0;  r[ 9][14] =       10.0; 
      r[ 9][15] =        4.0;  r[ 9][16] =       72.0;  r[ 9][17] =       39.0; 
      r[ 9][18] =       26.0;  r[ 9][19] =     1048.0; 
      r[10][ 0] =       45.0;  r[10][ 1] =       18.0;  r[10][ 2] =       15.0; 
      r[10][ 3] =        5.0;  r[10][ 4] =      110.0;  r[10][ 5] =       54.0; 
      r[10][ 6] =       21.0;  r[10][ 7] =        3.0;  r[10][ 8] =       51.0; 
      r[10][ 9] =      385.0;  r[10][10] =        0.0;  r[10][11] =       23.0; 
      r[10][12] =      581.0;  r[10][13] =      179.0;  r[10][14] =       22.0; 
      r[10][15] =       24.0;  r[10][16] =       25.0;  r[10][17] =       47.0; 
      r[10][18] =       64.0;  r[10][19] =      112.0; 
      r[11][ 0] =       38.0;  r[11][ 1] =      593.0;  r[11][ 2] =      123.0; 
      r[11][ 3] =       20.0;  r[11][ 4] =       16.0;  r[11][ 5] =      309.0; 
      r[11][ 6] =      141.0;  r[11][ 7] =       30.0;  r[11][ 8] =       76.0; 
      r[11][ 9] =       34.0;  r[11][10] =       23.0;  r[11][11] =        0.0; 
      r[11][12] =      134.0;  r[11][13] =       14.0;  r[11][14] =       43.0; 
      r[11][15] =       77.0;  r[11][16] =      110.0;  r[11][17] =        6.0; 
      r[11][18] =        1.0;  r[11][19] =       19.0; 
      r[12][ 0] =      235.0;  r[12][ 1] =       57.0;  r[12][ 2] =        1.0; 
      r[12][ 3] =        1.0;  r[12][ 4] =      156.0;  r[12][ 5] =      158.0; 
      r[12][ 6] =        1.0;  r[12][ 7] =       37.0;  r[12][ 8] =      116.0; 
      r[12][ 9] =      375.0;  r[12][10] =      581.0;  r[12][11] =      134.0; 
      r[12][12] =        0.0;  r[12][13] =      247.0;  r[12][14] =        1.0; 
      r[12][15] =        1.0;  r[12][16] =      131.0;  r[12][17] =      111.0; 
      r[12][18] =       74.0;  r[12][19] =      236.0; 
      r[13][ 0] =        1.0;  r[13][ 1] =        7.0;  r[13][ 2] =       49.0; 
      r[13][ 3] =        1.0;  r[13][ 4] =       70.0;  r[13][ 5] =        1.0; 
      r[13][ 6] =        1.0;  r[13][ 7] =        7.0;  r[13][ 8] =      141.0; 
      r[13][ 9] =       64.0;  r[13][10] =      179.0;  r[13][11] =       14.0; 
      r[13][12] =      247.0;  r[13][13] =        0.0;  r[13][14] =       11.0; 
      r[13][15] =       20.0;  r[13][16] =       69.0;  r[13][17] =      182.0; 
      r[13][18] =     1017.0;  r[13][19] =       92.0; 
      r[14][ 0] =       97.0;  r[14][ 1] =       24.0;  r[14][ 2] =       33.0; 
      r[14][ 3] =       55.0;  r[14][ 4] =        1.0;  r[14][ 5] =       68.0; 
      r[14][ 6] =       52.0;  r[14][ 7] =       17.0;  r[14][ 8] =       44.0; 
      r[14][ 9] =       10.0;  r[14][10] =       22.0;  r[14][11] =       43.0; 
      r[14][12] =        1.0;  r[14][13] =       11.0;  r[14][14] =        0.0; 
      r[14][15] =      134.0;  r[14][16] =       62.0;  r[14][17] =        9.0; 
      r[14][18] =       14.0;  r[14][19] =       25.0; 
      r[15][ 0] =      460.0;  r[15][ 1] =      102.0;  r[15][ 2] =      294.0; 
      r[15][ 3] =      136.0;  r[15][ 4] =       75.0;  r[15][ 5] =      225.0; 
      r[15][ 6] =       95.0;  r[15][ 7] =      152.0;  r[15][ 8] =      183.0; 
      r[15][ 9] =        4.0;  r[15][10] =       24.0;  r[15][11] =       77.0; 
      r[15][12] =        1.0;  r[15][13] =       20.0;  r[15][14] =      134.0; 
      r[15][15] =        0.0;  r[15][16] =      671.0;  r[15][17] =       14.0; 
      r[15][18] =       31.0;  r[15][19] =       39.0; 
      r[16][ 0] =      258.0;  r[16][ 1] =       64.0;  r[16][ 2] =      148.0; 
      r[16][ 3] =       55.0;  r[16][ 4] =      117.0;  r[16][ 5] =      146.0; 
      r[16][ 6] =       82.0;  r[16][ 7] =        7.0;  r[16][ 8] =       49.0; 
      r[16][ 9] =       72.0;  r[16][10] =       25.0;  r[16][11] =      110.0; 
      r[16][12] =      131.0;  r[16][13] =       69.0;  r[16][14] =       62.0; 
      r[16][15] =      671.0;  r[16][16] =        0.0;  r[16][17] =        1.0; 
      r[16][18] =       34.0;  r[16][19] =      196.0; 
      r[17][ 0] =        5.0;  r[17][ 1] =       13.0;  r[17][ 2] =       16.0; 
      r[17][ 3] =        1.0;  r[17][ 4] =       55.0;  r[17][ 5] =       10.0; 
      r[17][ 6] =       17.0;  r[17][ 7] =       23.0;  r[17][ 8] =       48.0; 
      r[17][ 9] =       39.0;  r[17][10] =       47.0;  r[17][11] =        6.0; 
      r[17][12] =      111.0;  r[17][13] =      182.0;  r[17][14] =        9.0; 
      r[17][15] =       14.0;  r[17][16] =        1.0;  r[17][17] =        0.0; 
      r[17][18] =      176.0;  r[17][19] =       26.0; 
      r[18][ 0] =       55.0;  r[18][ 1] =       47.0;  r[18][ 2] =       28.0; 
      r[18][ 3] =        1.0;  r[18][ 4] =      131.0;  r[18][ 5] =       45.0; 
      r[18][ 6] =        1.0;  r[18][ 7] =       21.0;  r[18][ 8] =      307.0; 
      r[18][ 9] =       26.0;  r[18][10] =       64.0;  r[18][11] =        1.0; 
      r[18][12] =       74.0;  r[18][13] =     1017.0;  r[18][14] =       14.0; 
      r[18][15] =       31.0;  r[18][16] =       34.0;  r[18][17] =      176.0; 
      r[18][18] =        0.0;  r[18][19] =       59.0; 
      r[19][ 0] =      197.0;  r[19][ 1] =       29.0;  r[19][ 2] =       21.0; 
      r[19][ 3] =        6.0;  r[19][ 4] =      295.0;  r[19][ 5] =       36.0; 
      r[19][ 6] =       35.0;  r[19][ 7] =        3.0;  r[19][ 8] =        1.0; 
      r[19][ 9] =     1048.0;  r[19][10] =      112.0;  r[19][11] =       19.0; 
      r[19][12] =      236.0;  r[19][13] =       92.0;  r[19][14] =       25.0; 
      r[19][15] =       39.0;  r[19][16] =      196.0;  r[19][17] =       26.0; 
      r[19][18] =       59.0;  r[19][19] =        0.0;
}
void tmjtt94RMatrix(double **r)
{
     r[ 0][ 0] =   0.000000000;  r[ 0][ 1] =   0.125297065;  r[ 0][ 2] =   0.010128463; 
     r[ 0][ 3] =   0.073634421;  r[ 0][ 4] =   0.055527563;  r[ 0][ 5] =   0.026547814; 
     r[ 0][ 6] =   0.058015842;  r[ 0][ 7] =   0.197488151;  r[ 0][ 8] =   0.033448297; 
     r[ 0][ 9] =   0.034668495;  r[ 0][10] =   0.024618058;  r[ 0][11] =   0.041726292; 
     r[ 0][12] =   0.028114966;  r[ 0][13] =   0.025295767;  r[ 0][14] =   0.122435198; 
     r[ 0][15] =   0.326357335;  r[ 0][16] =   0.361510916;  r[ 0][17] =   0.000000000; 
     r[ 0][18] =   0.002889633;  r[ 0][19] =   0.228721917; 
     r[ 1][ 0] =   0.125297065;  r[ 1][ 1] =   0.000000000;  r[ 1][ 2] =   0.000000000; 
     r[ 1][ 3] =   0.070494357;  r[ 1][ 4] =   0.057248903;  r[ 1][ 5] =   0.934027753; 
     r[ 1][ 6] =   0.194395974;  r[ 1][ 7] =   0.181976608;  r[ 1][ 8] =   0.784536955; 
     r[ 1][ 9] =   0.021120972;  r[ 1][10] =   0.030693535;  r[ 1][11] =   2.964066574; 
     r[ 1][12] =   0.357983225;  r[ 1][13] =   0.000000000;  r[ 1][14] =   0.024132308; 
     r[ 1][15] =   0.055229321;  r[ 1][16] =   0.059966911;  r[ 1][17] =   0.787393683; 
     r[ 1][18] =   0.000000000;  r[ 1][19] =   0.000000000; 
     r[ 2][ 0] =   0.010128463;  r[ 2][ 1] =   0.000000000;  r[ 2][ 2] =   0.000000000; 
     r[ 2][ 3] =   0.837672574;  r[ 2][ 4] =   0.024295684;  r[ 2][ 5] =   0.264259410; 
     r[ 2][ 6] =   0.000000000;  r[ 2][ 7] =   0.000000000;  r[ 2][ 8] =   0.253674014; 
     r[ 2][ 9] =   0.017926926;  r[ 2][10] =   0.016282416;  r[ 2][11] =   0.522151803; 
     r[ 2][12] =   0.047975801;  r[ 2][13] =   0.006851602;  r[ 2][14] =   0.040965736; 
     r[ 2][15] =   0.300014046;  r[ 2][16] =   0.193413684;  r[ 2][17] =   0.023868539; 
     r[ 2][18] =   0.016436375;  r[ 2][19] =   0.008910836; 
     r[ 3][ 0] =   0.073634421;  r[ 3][ 1] =   0.070494357;  r[ 3][ 2] =   0.837672574; 
     r[ 3][ 3] =   0.000000000;  r[ 3][ 4] =   0.000000000;  r[ 3][ 5] =   0.000000000; 
     r[ 3][ 6] =   1.370910385;  r[ 3][ 7] =   0.218748628;  r[ 3][ 8] =   0.263460523; 
     r[ 3][ 9] =   0.009309261;  r[ 3][10] =   0.000000000;  r[ 3][11] =   0.197198237; 
     r[ 3][12] =   0.033217767;  r[ 3][13] =   0.000000000;  r[ 3][14] =   0.042546147; 
     r[ 3][15] =   0.000000000;  r[ 3][16] =   0.126868622;  r[ 3][17] =   0.000000000; 
     r[ 3][18] =   0.034140941;  r[ 3][19] =   0.037018416; 
     r[ 4][ 0] =   0.055527563;  r[ 4][ 1] =   0.057248903;  r[ 4][ 2] =   0.024295684; 
     r[ 4][ 3] =   0.000000000;  r[ 4][ 4] =   0.000000000;  r[ 4][ 5] =   0.000000000; 
     r[ 4][ 6] =   0.000000000;  r[ 4][ 7] =   0.076980337;  r[ 4][ 8] =   0.053489470; 
     r[ 4][ 9] =   0.015120208;  r[ 4][10] =   0.030212974;  r[ 4][11] =   0.000000000; 
     r[ 4][12] =   0.013488171;  r[ 4][13] =   0.196482071;  r[ 4][14] =   0.000000000; 
     r[ 4][15] =   0.379563910;  r[ 4][16] =   0.111616616;  r[ 4][17] =   0.161052532; 
     r[ 4][18] =   0.318849651;  r[ 4][19] =   0.176619336; 
     r[ 5][ 0] =   0.026547814;  r[ 5][ 1] =   0.934027753;  r[ 5][ 2] =   0.264259410; 
     r[ 5][ 3] =   0.000000000;  r[ 5][ 4] =   0.000000000;  r[ 5][ 5] =   0.000000000; 
     r[ 5][ 6] =   1.153278425;  r[ 5][ 7] =   0.009201105;  r[ 5][ 8] =   1.080475690; 
     r[ 5][ 9] =   0.005873557;  r[ 5][10] =   0.068284828;  r[ 5][11] =   0.373258756; 
     r[ 5][12] =   0.062874960;  r[ 5][13] =   0.000000000;  r[ 5][14] =   0.134219704; 
     r[ 5][15] =   0.086009244;  r[ 5][16] =   0.026682035;  r[ 5][17] =   0.000000000; 
     r[ 5][18] =   0.000000000;  r[ 5][19] =   0.000000000; 
     r[ 6][ 0] =   0.058015842;  r[ 6][ 1] =   0.194395974;  r[ 6][ 2] =   0.000000000; 
     r[ 6][ 3] =   1.370910385;  r[ 6][ 4] =   0.000000000;  r[ 6][ 5] =   1.153278425; 
     r[ 6][ 6] =   0.000000000;  r[ 6][ 7] =   0.281504927;  r[ 6][ 8] =   0.000000000; 
     r[ 6][ 9] =   0.000000000;  r[ 6][10] =   0.000000000;  r[ 6][11] =   0.000000000; 
     r[ 6][12] =   0.000000000;  r[ 6][13] =   0.000000000;  r[ 6][14] =   0.000000000; 
     r[ 6][15] =   0.071603319;  r[ 6][16] =   0.038872750;  r[ 6][17] =   0.000000000; 
     r[ 6][18] =   0.000000000;  r[ 6][19] =   0.059548132; 
     r[ 7][ 0] =   0.197488151;  r[ 7][ 1] =   0.181976608;  r[ 7][ 2] =   0.000000000; 
     r[ 7][ 3] =   0.218748628;  r[ 7][ 4] =   0.076980337;  r[ 7][ 5] =   0.009201105; 
     r[ 7][ 6] =   0.281504927;  r[ 7][ 7] =   0.000000000;  r[ 7][ 8] =   0.007728479; 
     r[ 7][ 9] =   0.010923292;  r[ 7][10] =   0.000000000;  r[ 7][11] =   0.000000000; 
     r[ 7][12] =   0.011693111;  r[ 7][13] =   0.006679743;  r[ 7][14] =   0.034945935; 
     r[ 7][15] =   0.146244454;  r[ 7][16] =   0.029772995;  r[ 7][17] =   0.029087298; 
     r[ 7][18] =   0.000000000;  r[ 7][19] =   0.057553539; 
     r[ 8][ 0] =   0.033448297;  r[ 8][ 1] =   0.784536955;  r[ 8][ 2] =   0.253674014; 
     r[ 8][ 3] =   0.263460523;  r[ 8][ 4] =   0.053489470;  r[ 8][ 5] =   1.080475690; 
     r[ 8][ 6] =   0.000000000;  r[ 8][ 7] =   0.007728479;  r[ 8][ 8] =   0.000000000; 
     r[ 8][ 9] =   0.014800499;  r[ 8][10] =   0.007169488;  r[ 8][11] =   0.000000000; 
     r[ 8][12] =   0.017603956;  r[ 8][13] =   0.000000000;  r[ 8][14] =   0.000000000; 
     r[ 8][15] =   0.000000000;  r[ 8][16] =   0.044823199;  r[ 8][17] =   0.000000000; 
     r[ 8][18] =   0.524702735;  r[ 8][19] =   0.009809067; 
     r[ 9][ 0] =   0.034668495;  r[ 9][ 1] =   0.021120972;  r[ 9][ 2] =   0.017926926; 
     r[ 9][ 3] =   0.009309261;  r[ 9][ 4] =   0.015120208;  r[ 9][ 5] =   0.005873557; 
     r[ 9][ 6] =   0.000000000;  r[ 9][ 7] =   0.010923292;  r[ 9][ 8] =   0.014800499; 
     r[ 9][ 9] =   0.000000000;  r[ 9][10] =   0.138318541;  r[ 9][11] =   0.000000000; 
     r[ 9][12] =   0.400586061;  r[ 9][13] =   0.070356615;  r[ 9][14] =   0.012747345; 
     r[ 9][15] =   0.032091001;  r[ 9][16] =   0.237571168;  r[ 9][17] =   0.003713596; 
     r[ 9][18] =   0.010229043;  r[ 9][19] =   0.612093905; 
     r[10][ 0] =   0.024618058;  r[10][ 1] =   0.030693535;  r[10][ 2] =   0.016282416; 
     r[10][ 3] =   0.000000000;  r[10][ 4] =   0.030212974;  r[10][ 5] =   0.068284828; 
     r[10][ 6] =   0.000000000;  r[10][ 7] =   0.000000000;  r[10][ 8] =   0.007169488; 
     r[10][ 9] =   0.138318541;  r[10][10] =   0.000000000;  r[10][11] =   0.005366306; 
     r[10][12] =   0.276607787;  r[10][13] =   0.194418567;  r[10][14] =   0.085677048; 
     r[10][15] =   0.045575564;  r[10][16] =   0.029921188;  r[10][17] =   0.053966920; 
     r[10][18] =   0.011148830;  r[10][19] =   0.128440074; 
     r[11][ 0] =   0.041726292;  r[11][ 1] =   2.964066574;  r[11][ 2] =   0.522151803; 
     r[11][ 3] =   0.197198237;  r[11][ 4] =   0.000000000;  r[11][ 5] =   0.373258756; 
     r[11][ 6] =   0.000000000;  r[11][ 7] =   0.000000000;  r[11][ 8] =   0.000000000; 
     r[11][ 9] =   0.000000000;  r[11][10] =   0.005366306;  r[11][11] =   0.000000000; 
     r[11][12] =   0.105411444;  r[11][13] =   0.000000000;  r[11][14] =   0.000000000; 
     r[11][15] =   0.015449641;  r[11][16] =   0.033549815;  r[11][17] =   0.000000000; 
     r[11][18] =   0.135426245;  r[11][19] =   0.007342011; 
     r[12][ 0] =   0.028114966;  r[12][ 1] =   0.357983225;  r[12][ 2] =   0.047975801; 
     r[12][ 3] =   0.033217767;  r[12][ 4] =   0.013488171;  r[12][ 5] =   0.062874960; 
     r[12][ 6] =   0.000000000;  r[12][ 7] =   0.011693111;  r[12][ 8] =   0.017603956; 
     r[12][ 9] =   0.400586061;  r[12][10] =   0.276607787;  r[12][11] =   0.105411444; 
     r[12][12] =   0.000000000;  r[12][13] =   0.030430299;  r[12][14] =   0.000000000; 
     r[12][15] =   0.005204941;  r[12][16] =   0.180845489;  r[12][17] =   0.013251037; 
     r[12][18] =   0.045624721;  r[12][19] =   0.220141834; 
     r[13][ 0] =   0.025295767;  r[13][ 1] =   0.000000000;  r[13][ 2] =   0.006851602; 
     r[13][ 3] =   0.000000000;  r[13][ 4] =   0.196482071;  r[13][ 5] =   0.000000000; 
     r[13][ 6] =   0.000000000;  r[13][ 7] =   0.006679743;  r[13][ 8] =   0.000000000; 
     r[13][ 9] =   0.070356615;  r[13][10] =   0.194418567;  r[13][11] =   0.000000000; 
     r[13][12] =   0.030430299;  r[13][13] =   0.000000000;  r[13][14] =   0.000000000; 
     r[13][15] =   0.071360327;  r[13][16] =   0.021791707;  r[13][17] =   0.011354574; 
     r[13][18] =   0.211113033;  r[13][19] =   0.039210767; 
     r[14][ 0] =   0.122435198;  r[14][ 1] =   0.024132308;  r[14][ 2] =   0.040965736; 
     r[14][ 3] =   0.042546147;  r[14][ 4] =   0.000000000;  r[14][ 5] =   0.134219704; 
     r[14][ 6] =   0.000000000;  r[14][ 7] =   0.034945935;  r[14][ 8] =   0.000000000; 
     r[14][ 9] =   0.012747345;  r[14][10] =   0.085677048;  r[14][11] =   0.000000000; 
     r[14][12] =   0.000000000;  r[14][13] =   0.000000000;  r[14][14] =   0.000000000; 
     r[14][15] =   0.059999564;  r[14][16] =   0.072384821;  r[14][17] =   0.000000000; 
     r[14][18] =   0.011687457;  r[14][19] =   0.003168125; 
     r[15][ 0] =   0.326357335;  r[15][ 1] =   0.055229321;  r[15][ 2] =   0.300014046; 
     r[15][ 3] =   0.000000000;  r[15][ 4] =   0.379563910;  r[15][ 5] =   0.086009244; 
     r[15][ 6] =   0.071603319;  r[15][ 7] =   0.146244454;  r[15][ 8] =   0.000000000; 
     r[15][ 9] =   0.032091001;  r[15][10] =   0.045575564;  r[15][11] =   0.015449641; 
     r[15][12] =   0.005204941;  r[15][13] =   0.071360327;  r[15][14] =   0.059999564; 
     r[15][15] =   0.000000000;  r[15][16] =   0.443969487;  r[15][17] =   0.007768559; 
     r[15][18] =   0.117691072;  r[15][19] =   0.018851528; 
     r[16][ 0] =   0.361510916;  r[16][ 1] =   0.059966911;  r[16][ 2] =   0.193413684; 
     r[16][ 3] =   0.126868622;  r[16][ 4] =   0.111616616;  r[16][ 5] =   0.026682035; 
     r[16][ 6] =   0.038872750;  r[16][ 7] =   0.029772995;  r[16][ 8] =   0.044823199; 
     r[16][ 9] =   0.237571168;  r[16][10] =   0.029921188;  r[16][11] =   0.033549815; 
     r[16][12] =   0.180845489;  r[16][13] =   0.021791707;  r[16][14] =   0.072384821; 
     r[16][15] =   0.443969487;  r[16][16] =   0.000000000;  r[16][17] =   0.008434947; 
     r[16][18] =   0.017425450;  r[16][19] =   0.075576422; 
     r[17][ 0] =   0.000000000;  r[17][ 1] =   0.787393683;  r[17][ 2] =   0.023868539; 
     r[17][ 3] =   0.000000000;  r[17][ 4] =   0.161052532;  r[17][ 5] =   0.000000000; 
     r[17][ 6] =   0.000000000;  r[17][ 7] =   0.029087298;  r[17][ 8] =   0.000000000; 
     r[17][ 9] =   0.003713596;  r[17][10] =   0.053966920;  r[17][11] =   0.000000000; 
     r[17][12] =   0.013251037;  r[17][13] =   0.011354574;  r[17][14] =   0.000000000; 
     r[17][15] =   0.007768559;  r[17][16] =   0.008434947;  r[17][17] =   0.000000000; 
     r[17][18] =   0.027238608;  r[17][19] =   0.066452257; 
     r[18][ 0] =   0.002889633;  r[18][ 1] =   0.000000000;  r[18][ 2] =   0.016436375; 
     r[18][ 3] =   0.034140941;  r[18][ 4] =   0.318849651;  r[18][ 5] =   0.000000000; 
     r[18][ 6] =   0.000000000;  r[18][ 7] =   0.000000000;  r[18][ 8] =   0.524702735; 
     r[18][ 9] =   0.010229043;  r[18][10] =   0.011148830;  r[18][11] =   0.135426245; 
     r[18][12] =   0.045624721;  r[18][13] =   0.211113033;  r[18][14] =   0.011687457; 
     r[18][15] =   0.117691072;  r[18][16] =   0.017425450;  r[18][17] =   0.027238608; 
     r[18][18] =   0.000000000;  r[18][19] =   0.005084493; 
     r[19][ 0] =   0.228721917;  r[19][ 1] =   0.000000000;  r[19][ 2] =   0.008910836; 
     r[19][ 3] =   0.037018416;  r[19][ 4] =   0.176619336;  r[19][ 5] =   0.000000000; 
     r[19][ 6] =   0.059548132;  r[19][ 7] =   0.057553539;  r[19][ 8] =   0.009809067; 
     r[19][ 9] =   0.612093905;  r[19][10] =   0.128440074;  r[19][11] =   0.007342011; 
     r[19][12] =   0.220141834;  r[19][13] =   0.039210767;  r[19][14] =   0.003168125; 
     r[19][15] =   0.018851528;  r[19][16] =   0.075576422;  r[19][17] =   0.066452257; 
     r[19][18] =   0.005084493;  r[19][19] =   0.000000000; 
}

void tmlg99RMatrix(double **r)
{
     r[ 0][ 0] =   0.0000000;  r[ 0][ 1] =   0.0000000;  r[ 0][ 2] =   0.0392645; 
     r[ 0][ 3] =   0.0000000;  r[ 0][ 4] =   0.0376565;  r[ 0][ 5] =   0.0000000; 
     r[ 0][ 6] =   0.0000000;  r[ 0][ 7] =   0.0708902;  r[ 0][ 8] =   0.0000000; 
     r[ 0][ 9] =   0.0053603;  r[ 0][10] =   0.0055822;  r[ 0][11] =   0.0000000; 
     r[ 0][12] =   0.0149090;  r[ 0][13] =   0.0066790;  r[ 0][14] =   0.0181801; 
     r[ 0][15] =   0.1166810;  r[ 0][16] =   0.1480670;  r[ 0][17] =   0.0000000; 
     r[ 0][18] =   0.0000000;  r[ 0][19] =   0.0590883; 
     r[ 1][ 0] =   0.0000000;  r[ 1][ 1] =   0.0000000;  r[ 1][ 2] =   0.0000000; 
     r[ 1][ 3] =   0.0000000;  r[ 1][ 4] =   0.0675863;  r[ 1][ 5] =   0.2735950; 
     r[ 1][ 6] =   0.0000000;  r[ 1][ 7] =   0.0898125;  r[ 1][ 8] =   0.0000000; 
     r[ 1][ 9] =   0.0192414;  r[ 1][10] =   0.0000000;  r[ 1][11] =   1.7054300; 
     r[ 1][12] =   0.0535176;  r[ 1][13] =   0.0000000;  r[ 1][14] =   0.1957780; 
     r[ 1][15] =   0.0644373;  r[ 1][16] =   0.0462178;  r[ 1][17] =   0.0000000; 
     r[ 1][18] =   0.0000000;  r[ 1][19] =   0.0000000; 
     r[ 2][ 0] =   0.0392645;  r[ 2][ 1] =   0.0000000;  r[ 2][ 2] =   0.0000000; 
     r[ 2][ 3] =   0.1904950;  r[ 2][ 4] =   0.0000000;  r[ 2][ 5] =   0.1303890; 
     r[ 2][ 6] =   0.0000000;  r[ 2][ 7] =   0.0000000;  r[ 2][ 8] =   0.2257720; 
     r[ 2][ 9] =   0.0183401;  r[ 2][10] =   0.0000000;  r[ 2][11] =   0.2031930; 
     r[ 2][12] =   0.0000000;  r[ 2][13] =   0.0000000;  r[ 2][14] =   0.0000000; 
     r[ 2][15] =   0.0307094;  r[ 2][16] =   0.0881057;  r[ 2][17] =   0.0000000; 
     r[ 2][18] =   0.0000000;  r[ 2][19] =   0.0000000; 
     r[ 3][ 0] =   0.0000000;  r[ 3][ 1] =   0.0000000;  r[ 3][ 2] =   0.1904950; 
     r[ 3][ 3] =   0.0000000;  r[ 3][ 4] =   0.0000000;  r[ 3][ 5] =   0.0000000; 
     r[ 3][ 6] =   0.7409060;  r[ 3][ 7] =   0.0809247;  r[ 3][ 8] =   0.0000000; 
     r[ 3][ 9] =   0.0000000;  r[ 3][10] =   0.0000000;  r[ 3][11] =   0.0000000; 
     r[ 3][12] =   0.0000000;  r[ 3][13] =   0.0000000;  r[ 3][14] =   0.0000000; 
     r[ 3][15] =   0.0000000;  r[ 3][16] =   0.0000000;  r[ 3][17] =   0.0000000; 
     r[ 3][18] =   0.0000000;  r[ 3][19] =   0.0000000; 
     r[ 4][ 0] =   0.0376565;  r[ 4][ 1] =   0.0675863;  r[ 4][ 2] =   0.0000000; 
     r[ 4][ 3] =   0.0000000;  r[ 4][ 4] =   0.0000000;  r[ 4][ 5] =   0.0000000; 
     r[ 4][ 6] =   0.0000000;  r[ 4][ 7] =   0.0000000;  r[ 4][ 8] =   0.0000000; 
     r[ 4][ 9] =   0.0175890;  r[ 4][10] =   0.0000000;  r[ 4][11] =   0.0000000; 
     r[ 4][12] =   0.0244608;  r[ 4][13] =   0.0219163;  r[ 4][14] =   0.0000000; 
     r[ 4][15] =   0.1178070;  r[ 4][16] =   0.0844975;  r[ 4][17] =   0.0000000; 
     r[ 4][18] =   0.0256129;  r[ 4][19] =   0.0168599; 
     r[ 5][ 0] =   0.0000000;  r[ 5][ 1] =   0.2735950;  r[ 5][ 2] =   0.1303890; 
     r[ 5][ 3] =   0.0000000;  r[ 5][ 4] =   0.0000000;  r[ 5][ 5] =   0.0000000; 
     r[ 5][ 6] =   0.3380890;  r[ 5][ 7] =   0.0000000;  r[ 5][ 8] =   0.1095640; 
     r[ 5][ 9] =   0.0000000;  r[ 5][10] =   0.0000000;  r[ 5][11] =   0.3944290; 
     r[ 5][12] =   0.0000000;  r[ 5][13] =   0.0000000;  r[ 5][14] =   0.0603725; 
     r[ 5][15] =   0.0000000;  r[ 5][16] =   0.0000000;  r[ 5][17] =   0.0000000; 
     r[ 5][18] =   0.0518416;  r[ 5][19] =   0.0000000; 
     r[ 6][ 0] =   0.0000000;  r[ 6][ 1] =   0.0000000;  r[ 6][ 2] =   0.0000000; 
     r[ 6][ 3] =   0.7409060;  r[ 6][ 4] =   0.0000000;  r[ 6][ 5] =   0.3380890; 
     r[ 6][ 6] =   0.0000000;  r[ 6][ 7] =   0.0739892;  r[ 6][ 8] =   0.0000000; 
     r[ 6][ 9] =   0.0000000;  r[ 6][10] =   0.0000000;  r[ 6][11] =   0.2634300; 
     r[ 6][12] =   0.0000000;  r[ 6][13] =   0.0000000;  r[ 6][14] =   0.0000000; 
     r[ 6][15] =   0.0000000;  r[ 6][16] =   0.0000000;  r[ 6][17] =   0.0000000; 
     r[ 6][18] =   0.0000000;  r[ 6][19] =   0.0000000; 
     r[ 7][ 0] =   0.0708902;  r[ 7][ 1] =   0.0898125;  r[ 7][ 2] =   0.0000000; 
     r[ 7][ 3] =   0.0809247;  r[ 7][ 4] =   0.0000000;  r[ 7][ 5] =   0.0000000; 
     r[ 7][ 6] =   0.0739892;  r[ 7][ 7] =   0.0000000;  r[ 7][ 8] =   0.0000000; 
     r[ 7][ 9] =   0.0000000;  r[ 7][10] =   0.0000000;  r[ 7][11] =   0.0000000; 
     r[ 7][12] =   0.0108349;  r[ 7][13] =   0.0000000;  r[ 7][14] =   0.0000000; 
     r[ 7][15] =   0.0717516;  r[ 7][16] =   0.0000000;  r[ 7][17] =   0.0000000; 
     r[ 7][18] =   0.0000000;  r[ 7][19] =   0.0186704; 
     r[ 8][ 0] =   0.0000000;  r[ 8][ 1] =   0.0000000;  r[ 8][ 2] =   0.2257720; 
     r[ 8][ 3] =   0.0000000;  r[ 8][ 4] =   0.0000000;  r[ 8][ 5] =   0.1095640; 
     r[ 8][ 6] =   0.0000000;  r[ 8][ 7] =   0.0000000;  r[ 8][ 8] =   0.0000000; 
     r[ 8][ 9] =   0.0154109;  r[ 8][10] =   0.0000000;  r[ 8][11] =   0.0000000; 
     r[ 8][12] =   0.0000000;  r[ 8][13] =   0.0000000;  r[ 8][14] =   0.0522681; 
     r[ 8][15] =   0.0000000;  r[ 8][16] =   0.0000000;  r[ 8][17] =   0.0000000; 
     r[ 8][18] =   0.1346470;  r[ 8][19] =   0.0000000; 
     r[ 9][ 0] =   0.0053603;  r[ 9][ 1] =   0.0192414;  r[ 9][ 2] =   0.0183401; 
     r[ 9][ 3] =   0.0000000;  r[ 9][ 4] =   0.0175890;  r[ 9][ 5] =   0.0000000; 
     r[ 9][ 6] =   0.0000000;  r[ 9][ 7] =   0.0000000;  r[ 9][ 8] =   0.0154109; 
     r[ 9][ 9] =   0.0000000;  r[ 9][10] =   0.0434563;  r[ 9][11] =   0.0000000; 
     r[ 9][12] =   0.0487471;  r[ 9][13] =   0.0218381;  r[ 9][14] =   0.0000000; 
     r[ 9][15] =   0.0125771;  r[ 9][16] =   0.0541260;  r[ 9][17] =   0.0000000; 
     r[ 9][18] =   0.0000000;  r[ 9][19] =   0.2039970; 
     r[10][ 0] =   0.0055822;  r[10][ 1] =   0.0000000;  r[10][ 2] =   0.0000000; 
     r[10][ 3] =   0.0000000;  r[10][ 4] =   0.0000000;  r[10][ 5] =   0.0000000; 
     r[10][ 6] =   0.0000000;  r[10][ 7] =   0.0000000;  r[10][ 8] =   0.0000000; 
     r[10][ 9] =   0.0434563;  r[10][10] =   0.0000000;  r[10][11] =   0.0000000; 
     r[10][12] =   0.0580167;  r[10][13] =   0.0693086;  r[10][14] =   0.0000000; 
     r[10][15] =   0.0058212;  r[10][16] =   0.0083505;  r[10][17] =   0.0264874; 
     r[10][18] =   0.0000000;  r[10][19] =   0.0366563; 
     r[11][ 0] =   0.0000000;  r[11][ 1] =   1.7054300;  r[11][ 2] =   0.2031930; 
     r[11][ 3] =   0.0000000;  r[11][ 4] =   0.0000000;  r[11][ 5] =   0.3944290; 
     r[11][ 6] =   0.2634300;  r[11][ 7] =   0.0000000;  r[11][ 8] =   0.0000000; 
     r[11][ 9] =   0.0000000;  r[11][10] =   0.0000000;  r[11][11] =   0.0000000; 
     r[11][12] =   0.0000000;  r[11][13] =   0.0000000;  r[11][14] =   0.0000000; 
     r[11][15] =   0.0000000;  r[11][16] =   0.0000000;  r[11][17] =   0.0000000; 
     r[11][18] =   0.0000000;  r[11][19] =   0.0000000; 
     r[12][ 0] =   0.0149090;  r[12][ 1] =   0.0535176;  r[12][ 2] =   0.0000000; 
     r[12][ 3] =   0.0000000;  r[12][ 4] =   0.0244608;  r[12][ 5] =   0.0000000; 
     r[12][ 6] =   0.0000000;  r[12][ 7] =   0.0108349;  r[12][ 8] =   0.0000000; 
     r[12][ 9] =   0.0487471;  r[12][10] =   0.0580167;  r[12][11] =   0.0000000; 
     r[12][12] =   0.0000000;  r[12][13] =   0.0173542;  r[12][14] =   0.0000000; 
     r[12][15] =   0.0116605;  r[12][16] =   0.0334543;  r[12][17] =   0.0000000; 
     r[12][18] =   0.0000000;  r[12][19] =   0.0200256; 
     r[13][ 0] =   0.0066790;  r[13][ 1] =   0.0000000;  r[13][ 2] =   0.0000000; 
     r[13][ 3] =   0.0000000;  r[13][ 4] =   0.0219163;  r[13][ 5] =   0.0000000; 
     r[13][ 6] =   0.0000000;  r[13][ 7] =   0.0000000;  r[13][ 8] =   0.0000000; 
     r[13][ 9] =   0.0218381;  r[13][10] =   0.0693086;  r[13][11] =   0.0000000; 
     r[13][12] =   0.0173542;  r[13][13] =   0.0000000;  r[13][14] =   0.0000000; 
     r[13][15] =   0.0104475;  r[13][16] =   0.0149871;  r[13][17] =   0.0000000; 
     r[13][18] =   0.0908578;  r[13][19] =   0.0209328; 
     r[14][ 0] =   0.0181801;  r[14][ 1] =   0.1957780;  r[14][ 2] =   0.0000000; 
     r[14][ 3] =   0.0000000;  r[14][ 4] =   0.0000000;  r[14][ 5] =   0.0603725; 
     r[14][ 6] =   0.0000000;  r[14][ 7] =   0.0000000;  r[14][ 8] =   0.0522681; 
     r[14][ 9] =   0.0000000;  r[14][10] =   0.0000000;  r[14][11] =   0.0000000; 
     r[14][12] =   0.0000000;  r[14][13] =   0.0000000;  r[14][14] =   0.0000000; 
     r[14][15] =   0.0000000;  r[14][16] =   0.0203971;  r[14][17] =   0.0000000; 
     r[14][18] =   0.0000000;  r[14][19] =   0.0000000; 
     r[15][ 0] =   0.1166810;  r[15][ 1] =   0.0644373;  r[15][ 2] =   0.0307094; 
     r[15][ 3] =   0.0000000;  r[15][ 4] =   0.1178070;  r[15][ 5] =   0.0000000; 
     r[15][ 6] =   0.0000000;  r[15][ 7] =   0.0717516;  r[15][ 8] =   0.0000000; 
     r[15][ 9] =   0.0125771;  r[15][10] =   0.0058212;  r[15][11] =   0.0000000; 
     r[15][12] =   0.0116605;  r[15][13] =   0.0104475;  r[15][14] =   0.0000000; 
     r[15][15] =   0.0000000;  r[15][16] =   0.0704905;  r[15][17] =   0.0000000; 
     r[15][18] =   0.0244195;  r[15][19] =   0.0040186; 
     r[16][ 0] =   0.1480670;  r[16][ 1] =   0.0462178;  r[16][ 2] =   0.0881057; 
     r[16][ 3] =   0.0000000;  r[16][ 4] =   0.0844975;  r[16][ 5] =   0.0000000; 
     r[16][ 6] =   0.0000000;  r[16][ 7] =   0.0000000;  r[16][ 8] =   0.0000000; 
     r[16][ 9] =   0.0541260;  r[16][10] =   0.0083505;  r[16][11] =   0.0000000; 
     r[16][12] =   0.0334543;  r[16][13] =   0.0149871;  r[16][14] =   0.0203971; 
     r[16][15] =   0.0704905;  r[16][16] =   0.0000000;  r[16][17] =   0.0000000; 
     r[16][18] =   0.0000000;  r[16][19] =   0.0230588; 
     r[17][ 0] =   0.0000000;  r[17][ 1] =   0.0000000;  r[17][ 2] =   0.0000000; 
     r[17][ 3] =   0.0000000;  r[17][ 4] =   0.0000000;  r[17][ 5] =   0.0000000; 
     r[17][ 6] =   0.0000000;  r[17][ 7] =   0.0000000;  r[17][ 8] =   0.0000000; 
     r[17][ 9] =   0.0000000;  r[17][10] =   0.0264874;  r[17][11] =   0.0000000; 
     r[17][12] =   0.0000000;  r[17][13] =   0.0000000;  r[17][14] =   0.0000000; 
     r[17][15] =   0.0000000;  r[17][16] =   0.0000000;  r[17][17] =   0.0000000; 
     r[17][18] =   0.0000000;  r[17][19] =   0.0000000; 
     r[18][ 0] =   0.0000000;  r[18][ 1] =   0.0000000;  r[18][ 2] =   0.0000000; 
     r[18][ 3] =   0.0000000;  r[18][ 4] =   0.0256129;  r[18][ 5] =   0.0518416; 
     r[18][ 6] =   0.0000000;  r[18][ 7] =   0.0000000;  r[18][ 8] =   0.1346470; 
     r[18][ 9] =   0.0000000;  r[18][10] =   0.0000000;  r[18][11] =   0.0000000; 
     r[18][12] =   0.0000000;  r[18][13] =   0.0908578;  r[18][14] =   0.0000000; 
     r[18][15] =   0.0244195;  r[18][16] =   0.0000000;  r[18][17] =   0.0000000; 
     r[18][18] =   0.0000000;  r[18][19] =   0.0000000; 
     r[19][ 0] =   0.0590883;  r[19][ 1] =   0.0000000;  r[19][ 2] =   0.0000000; 
     r[19][ 3] =   0.0000000;  r[19][ 4] =   0.0168599;  r[19][ 5] =   0.0000000; 
     r[19][ 6] =   0.0000000;  r[19][ 7] =   0.0186704;  r[19][ 8] =   0.0000000; 
     r[19][ 9] =   0.2039970;  r[19][10] =   0.0366563;  r[19][11] =   0.0000000; 
     r[19][12] =   0.0200256;  r[19][13] =   0.0209328;  r[19][14] =   0.0000000; 
     r[19][15] =   0.0040186;  r[19][16] =   0.0230588;  r[19][17] =   0.0000000; 
     r[19][18] =   0.0000000;  r[19][19] =   0.0000000; 
}

void lgRMatrix(double **r)
{
     r[ 0][ 0] =   0.000000;  r[ 0][ 1] =   0.425093;  r[ 0][ 2] =   0.276818; 
     r[ 0][ 3] =   0.395144;  r[ 0][ 4] =   2.489084;  r[ 0][ 5] =   0.969894; 
     r[ 0][ 6] =   1.038545;  r[ 0][ 7] =   2.066040;  r[ 0][ 8] =   0.358858; 
     r[ 0][ 9] =   0.149830;  r[ 0][10] =   0.395337;  r[ 0][11] =   0.536518; 
     r[ 0][12] =   1.124035;  r[ 0][13] =   0.253701;  r[ 0][14] =   1.177651; 
     r[ 0][15] =   4.727182;  r[ 0][16] =   2.139501;  r[ 0][17] =   0.180717; 
     r[ 0][18] =   0.218959;  r[ 0][19] =   2.547870; 
     r[ 1][ 0] =   0.425093;  r[ 1][ 1] =   0.000000;  r[ 1][ 2] =   0.751878; 
     r[ 1][ 3] =   0.123954;  r[ 1][ 4] =   0.534551;  r[ 1][ 5] =   2.807908; 
     r[ 1][ 6] =   0.363970;  r[ 1][ 7] =   0.390192;  r[ 1][ 8] =   2.426601; 
     r[ 1][ 9] =   0.126991;  r[ 1][10] =   0.301848;  r[ 1][11] =   6.326067; 
     r[ 1][12] =   0.484133;  r[ 1][13] =   0.052722;  r[ 1][14] =   0.332533; 
     r[ 1][15] =   0.858151;  r[ 1][16] =   0.578987;  r[ 1][17] =   0.593607; 
     r[ 1][18] =   0.314440;  r[ 1][19] =   0.170887; 
     r[ 2][ 0] =   0.276818;  r[ 2][ 1] =   0.751878;  r[ 2][ 2] =   0.000000; 
     r[ 2][ 3] =   5.076149;  r[ 2][ 4] =   0.528768;  r[ 2][ 5] =   1.695752; 
     r[ 2][ 6] =   0.541712;  r[ 2][ 7] =   1.437645;  r[ 2][ 8] =   4.509238; 
     r[ 2][ 9] =   0.191503;  r[ 2][10] =   0.068427;  r[ 2][11] =   2.145078; 
     r[ 2][12] =   0.371004;  r[ 2][13] =   0.089525;  r[ 2][14] =   0.161787; 
     r[ 2][15] =   4.008358;  r[ 2][16] =   2.000679;  r[ 2][17] =   0.045376; 
     r[ 2][18] =   0.612025;  r[ 2][19] =   0.083688; 
     r[ 3][ 0] =   0.395144;  r[ 3][ 1] =   0.123954;  r[ 3][ 2] =   5.076149; 
     r[ 3][ 3] =   0.000000;  r[ 3][ 4] =   0.062556;  r[ 3][ 5] =   0.523386; 
     r[ 3][ 6] =   5.243870;  r[ 3][ 7] =   0.844926;  r[ 3][ 8] =   0.927114; 
     r[ 3][ 9] =   0.010690;  r[ 3][10] =   0.015076;  r[ 3][11] =   0.282959; 
     r[ 3][12] =   0.025548;  r[ 3][13] =   0.017416;  r[ 3][14] =   0.394456; 
     r[ 3][15] =   1.240275;  r[ 3][16] =   0.425860;  r[ 3][17] =   0.029890; 
     r[ 3][18] =   0.135107;  r[ 3][19] =   0.037967; 
     r[ 4][ 0] =   2.489084;  r[ 4][ 1] =   0.534551;  r[ 4][ 2] =   0.528768; 
     r[ 4][ 3] =   0.062556;  r[ 4][ 4] =   0.000000;  r[ 4][ 5] =   0.084808; 
     r[ 4][ 6] =   0.003499;  r[ 4][ 7] =   0.569265;  r[ 4][ 8] =   0.640543; 
     r[ 4][ 9] =   0.320627;  r[ 4][10] =   0.594007;  r[ 4][11] =   0.013266; 
     r[ 4][12] =   0.893680;  r[ 4][13] =   1.105251;  r[ 4][14] =   0.075382; 
     r[ 4][15] =   2.784478;  r[ 4][16] =   1.143480;  r[ 4][17] =   0.670128; 
     r[ 4][18] =   1.165532;  r[ 4][19] =   1.959291; 
     r[ 5][ 0] =   0.969894;  r[ 5][ 1] =   2.807908;  r[ 5][ 2] =   1.695752; 
     r[ 5][ 3] =   0.523386;  r[ 5][ 4] =   0.084808;  r[ 5][ 5] =   0.000000; 
     r[ 5][ 6] =   4.128591;  r[ 5][ 7] =   0.267959;  r[ 5][ 8] =   4.813505; 
     r[ 5][ 9] =   0.072854;  r[ 5][10] =   0.582457;  r[ 5][11] =   3.234294; 
     r[ 5][12] =   1.672569;  r[ 5][13] =   0.035855;  r[ 5][14] =   0.624294; 
     r[ 5][15] =   1.223828;  r[ 5][16] =   1.080136;  r[ 5][17] =   0.236199; 
     r[ 5][18] =   0.257336;  r[ 5][19] =   0.210332; 
     r[ 6][ 0] =   1.038545;  r[ 6][ 1] =   0.363970;  r[ 6][ 2] =   0.541712; 
     r[ 6][ 3] =   5.243870;  r[ 6][ 4] =   0.003499;  r[ 6][ 5] =   4.128591; 
     r[ 6][ 6] =   0.000000;  r[ 6][ 7] =   0.348847;  r[ 6][ 8] =   0.423881; 
     r[ 6][ 9] =   0.044265;  r[ 6][10] =   0.069673;  r[ 6][11] =   1.807177; 
     r[ 6][12] =   0.173735;  r[ 6][13] =   0.018811;  r[ 6][14] =   0.419409; 
     r[ 6][15] =   0.611973;  r[ 6][16] =   0.604545;  r[ 6][17] =   0.077852; 
     r[ 6][18] =   0.120037;  r[ 6][19] =   0.245034; 
     r[ 7][ 0] =   2.066040;  r[ 7][ 1] =   0.390192;  r[ 7][ 2] =   1.437645; 
     r[ 7][ 3] =   0.844926;  r[ 7][ 4] =   0.569265;  r[ 7][ 5] =   0.267959; 
     r[ 7][ 6] =   0.348847;  r[ 7][ 7] =   0.000000;  r[ 7][ 8] =   0.311484; 
     r[ 7][ 9] =   0.008705;  r[ 7][10] =   0.044261;  r[ 7][11] =   0.296636; 
     r[ 7][12] =   0.139538;  r[ 7][13] =   0.089586;  r[ 7][14] =   0.196961; 
     r[ 7][15] =   1.739990;  r[ 7][16] =   0.129836;  r[ 7][17] =   0.268491; 
     r[ 7][18] =   0.054679;  r[ 7][19] =   0.076701; 
     r[ 8][ 0] =   0.358858;  r[ 8][ 1] =   2.426601;  r[ 8][ 2] =   4.509238; 
     r[ 8][ 3] =   0.927114;  r[ 8][ 4] =   0.640543;  r[ 8][ 5] =   4.813505; 
     r[ 8][ 6] =   0.423881;  r[ 8][ 7] =   0.311484;  r[ 8][ 8] =   0.000000; 
     r[ 8][ 9] =   0.108882;  r[ 8][10] =   0.366317;  r[ 8][11] =   0.697264; 
     r[ 8][12] =   0.442472;  r[ 8][13] =   0.682139;  r[ 8][14] =   0.508851; 
     r[ 8][15] =   0.990012;  r[ 8][16] =   0.584262;  r[ 8][17] =   0.597054; 
     r[ 8][18] =   5.306834;  r[ 8][19] =   0.119013; 
     r[ 9][ 0] =   0.149830;  r[ 9][ 1] =   0.126991;  r[ 9][ 2] =   0.191503; 
     r[ 9][ 3] =   0.010690;  r[ 9][ 4] =   0.320627;  r[ 9][ 5] =   0.072854; 
     r[ 9][ 6] =   0.044265;  r[ 9][ 7] =   0.008705;  r[ 9][ 8] =   0.108882; 
     r[ 9][ 9] =   0.000000;  r[ 9][10] =   4.145067;  r[ 9][11] =   0.159069; 
     r[ 9][12] =   4.273607;  r[ 9][13] =   1.112727;  r[ 9][14] =   0.078281; 
     r[ 9][15] =   0.064105;  r[ 9][16] =   1.033739;  r[ 9][17] =   0.111660; 
     r[ 9][18] =   0.232523;  r[ 9][19] =  10.649107; 
     r[10][ 0] =   0.395337;  r[10][ 1] =   0.301848;  r[10][ 2] =   0.068427; 
     r[10][ 3] =   0.015076;  r[10][ 4] =   0.594007;  r[10][ 5] =   0.582457; 
     r[10][ 6] =   0.069673;  r[10][ 7] =   0.044261;  r[10][ 8] =   0.366317; 
     r[10][ 9] =   4.145067;  r[10][10] =   0.000000;  r[10][11] =   0.137500; 
     r[10][12] =   6.312358;  r[10][13] =   2.592692;  r[10][14] =   0.249060; 
     r[10][15] =   0.182287;  r[10][16] =   0.302936;  r[10][17] =   0.619632; 
     r[10][18] =   0.299648;  r[10][19] =   1.702745; 
     r[11][ 0] =   0.536518;  r[11][ 1] =   6.326067;  r[11][ 2] =   2.145078; 
     r[11][ 3] =   0.282959;  r[11][ 4] =   0.013266;  r[11][ 5] =   3.234294; 
     r[11][ 6] =   1.807177;  r[11][ 7] =   0.296636;  r[11][ 8] =   0.697264; 
     r[11][ 9] =   0.159069;  r[11][10] =   0.137500;  r[11][11] =   0.000000; 
     r[11][12] =   0.656604;  r[11][13] =   0.023918;  r[11][14] =   0.390322; 
     r[11][15] =   0.748683;  r[11][16] =   1.136863;  r[11][17] =   0.049906; 
     r[11][18] =   0.131932;  r[11][19] =   0.185202; 
     r[12][ 0] =   1.124035;  r[12][ 1] =   0.484133;  r[12][ 2] =   0.371004; 
     r[12][ 3] =   0.025548;  r[12][ 4] =   0.893680;  r[12][ 5] =   1.672569; 
     r[12][ 6] =   0.173735;  r[12][ 7] =   0.139538;  r[12][ 8] =   0.442472; 
     r[12][ 9] =   4.273607;  r[12][10] =   6.312358;  r[12][11] =   0.656604; 
     r[12][12] =   0.000000;  r[12][13] =   1.798853;  r[12][14] =   0.099849; 
     r[12][15] =   0.346960;  r[12][16] =   2.020366;  r[12][17] =   0.696175; 
     r[12][18] =   0.481306;  r[12][19] =   1.898718; 
     r[13][ 0] =   0.253701;  r[13][ 1] =   0.052722;  r[13][ 2] =   0.089525; 
     r[13][ 3] =   0.017416;  r[13][ 4] =   1.105251;  r[13][ 5] =   0.035855; 
     r[13][ 6] =   0.018811;  r[13][ 7] =   0.089586;  r[13][ 8] =   0.682139; 
     r[13][ 9] =   1.112727;  r[13][10] =   2.592692;  r[13][11] =   0.023918; 
     r[13][12] =   1.798853;  r[13][13] =   0.000000;  r[13][14] =   0.094464; 
     r[13][15] =   0.361819;  r[13][16] =   0.165001;  r[13][17] =   2.457121; 
     r[13][18] =   7.803902;  r[13][19] =   0.654683; 
     r[14][ 0] =   1.177651;  r[14][ 1] =   0.332533;  r[14][ 2] =   0.161787; 
     r[14][ 3] =   0.394456;  r[14][ 4] =   0.075382;  r[14][ 5] =   0.624294; 
     r[14][ 6] =   0.419409;  r[14][ 7] =   0.196961;  r[14][ 8] =   0.508851; 
     r[14][ 9] =   0.078281;  r[14][10] =   0.249060;  r[14][11] =   0.390322; 
     r[14][12] =   0.099849;  r[14][13] =   0.094464;  r[14][14] =   0.000000; 
     r[14][15] =   1.338132;  r[14][16] =   0.571468;  r[14][17] =   0.095131; 
     r[14][18] =   0.089613;  r[14][19] =   0.296501; 
     r[15][ 0] =   4.727182;  r[15][ 1] =   0.858151;  r[15][ 2] =   4.008358; 
     r[15][ 3] =   1.240275;  r[15][ 4] =   2.784478;  r[15][ 5] =   1.223828; 
     r[15][ 6] =   0.611973;  r[15][ 7] =   1.739990;  r[15][ 8] =   0.990012; 
     r[15][ 9] =   0.064105;  r[15][10] =   0.182287;  r[15][11] =   0.748683; 
     r[15][12] =   0.346960;  r[15][13] =   0.361819;  r[15][14] =   1.338132; 
     r[15][15] =   0.000000;  r[15][16] =   6.472279;  r[15][17] =   0.248862; 
     r[15][18] =   0.400547;  r[15][19] =   0.098369; 
     r[16][ 0] =   2.139501;  r[16][ 1] =   0.578987;  r[16][ 2] =   2.000679; 
     r[16][ 3] =   0.425860;  r[16][ 4] =   1.143480;  r[16][ 5] =   1.080136; 
     r[16][ 6] =   0.604545;  r[16][ 7] =   0.129836;  r[16][ 8] =   0.584262; 
     r[16][ 9] =   1.033739;  r[16][10] =   0.302936;  r[16][11] =   1.136863; 
     r[16][12] =   2.020366;  r[16][13] =   0.165001;  r[16][14] =   0.571468; 
     r[16][15] =   6.472279;  r[16][16] =   0.000000;  r[16][17] =   0.140825; 
     r[16][18] =   0.245841;  r[16][19] =   2.188158; 
     r[17][ 0] =   0.180717;  r[17][ 1] =   0.593607;  r[17][ 2] =   0.045376; 
     r[17][ 3] =   0.029890;  r[17][ 4] =   0.670128;  r[17][ 5] =   0.236199; 
     r[17][ 6] =   0.077852;  r[17][ 7] =   0.268491;  r[17][ 8] =   0.597054; 
     r[17][ 9] =   0.111660;  r[17][10] =   0.619632;  r[17][11] =   0.049906; 
     r[17][12] =   0.696175;  r[17][13] =   2.457121;  r[17][14] =   0.095131; 
     r[17][15] =   0.248862;  r[17][16] =   0.140825;  r[17][17] =   0.000000; 
     r[17][18] =   3.151815;  r[17][19] =   0.189510; 
     r[18][ 0] =   0.218959;  r[18][ 1] =   0.314440;  r[18][ 2] =   0.612025; 
     r[18][ 3] =   0.135107;  r[18][ 4] =   1.165532;  r[18][ 5] =   0.257336; 
     r[18][ 6] =   0.120037;  r[18][ 7] =   0.054679;  r[18][ 8] =   5.306834; 
     r[18][ 9] =   0.232523;  r[18][10] =   0.299648;  r[18][11] =   0.131932; 
     r[18][12] =   0.481306;  r[18][13] =   7.803902;  r[18][14] =   0.089613; 
     r[18][15] =   0.400547;  r[18][16] =   0.245841;  r[18][17] =   3.151815; 
     r[18][18] =   0.000000;  r[18][19] =   0.249313; 
     r[19][ 0] =   2.547870;  r[19][ 1] =   0.170887;  r[19][ 2] =   0.083688; 
     r[19][ 3] =   0.037967;  r[19][ 4] =   1.959291;  r[19][ 5] =   0.210332; 
     r[19][ 6] =   0.245034;  r[19][ 7] =   0.076701;  r[19][ 8] =   0.119013; 
     r[19][ 9] =  10.649107;  r[19][10] =   1.702745;  r[19][11] =   0.185202; 
     r[19][12] =   1.898718;  r[19][13] =   0.654683;  r[19][14] =   0.296501; 
     r[19][15] =   0.098369;  r[19][16] =   2.188158;  r[19][17] =   0.189510; 
     r[19][18] =   0.249313;  r[19][19] =   0.000000; 
}

void blosum62RMatrix(double **r)
{
// This from mrbayes.  Phyml got it from MrBayes.

	/* Blosum62 */
	r[ 0][ 0] = 0.000000000000; r[ 0][ 1] = 0.735790389698; r[ 0][ 2] = 0.485391055466; r[ 0][ 3] = 0.543161820899; r[ 0][ 4] = 1.459995310470; 
	r[ 0][ 5] = 1.199705704602; r[ 0][ 6] = 1.170949042800; r[ 0][ 7] = 1.955883574960; r[ 0][ 8] = 0.716241444998; r[ 0][ 9] = 0.605899003687; 
	r[ 0][10] = 0.800016530518; r[ 0][11] = 1.295201266783; r[ 0][12] = 1.253758266664; r[ 0][13] = 0.492964679748; r[ 0][14] = 1.173275900924; 
	r[ 0][15] = 4.325092687057; r[ 0][16] = 1.729178019485; r[ 0][17] = 0.465839367725; r[ 0][18] = 0.718206697586; r[ 0][19] = 2.187774522005; 
	r[ 1][ 0] = 0.735790389698; r[ 1][ 1] = 0.000000000000; r[ 1][ 2] = 1.297446705134; r[ 1][ 3] = 0.500964408555; r[ 1][ 4] = 0.227826574209; 
	r[ 1][ 5] = 3.020833610064; r[ 1][ 6] = 1.360574190420; r[ 1][ 7] = 0.418763308518; r[ 1][ 8] = 1.456141166336; r[ 1][ 9] = 0.232036445142; 
	r[ 1][10] = 0.622711669692; r[ 1][11] = 5.411115141489; r[ 1][12] = 0.983692987457; r[ 1][13] = 0.371644693209; r[ 1][14] = 0.448133661718; 
	r[ 1][15] = 1.122783104210; r[ 1][16] = 0.914665954563; r[ 1][17] = 0.426382310122; r[ 1][18] = 0.720517441216; r[ 1][19] = 0.438388343772; 
	r[ 2][ 0] = 0.485391055466; r[ 2][ 1] = 1.297446705134; r[ 2][ 2] = 0.000000000000; r[ 2][ 3] = 3.180100048216; r[ 2][ 4] = 0.397358949897; 
	r[ 2][ 5] = 1.839216146992; r[ 2][ 6] = 1.240488508640; r[ 2][ 7] = 1.355872344485; r[ 2][ 8] = 2.414501434208; r[ 2][ 9] = 0.283017326278; 
	r[ 2][10] = 0.211888159615; r[ 2][11] = 1.593137043457; r[ 2][12] = 0.648441278787; r[ 2][13] = 0.354861249223; r[ 2][14] = 0.494887043702; 
	r[ 2][15] = 2.904101656456; r[ 2][16] = 1.898173634533; r[ 2][17] = 0.191482046247; r[ 2][18] = 0.538222519037; r[ 2][19] = 0.312858797993; 
	r[ 3][ 0] = 0.543161820899; r[ 3][ 1] = 0.500964408555; r[ 3][ 2] = 3.180100048216; r[ 3][ 3] = 0.000000000000; r[ 3][ 4] = 0.240836614802; 
	r[ 3][ 5] = 1.190945703396; r[ 3][ 6] = 3.761625208368; r[ 3][ 7] = 0.798473248968; r[ 3][ 8] = 0.778142664022; r[ 3][ 9] = 0.418555732462; 
	r[ 3][10] = 0.218131577594; r[ 3][11] = 1.032447924952; r[ 3][12] = 0.222621897958; r[ 3][13] = 0.281730694207; r[ 3][14] = 0.730628272998; 
	r[ 3][15] = 1.582754142065; r[ 3][16] = 0.934187509431; r[ 3][17] = 0.145345046279; r[ 3][18] = 0.261422208965; r[ 3][19] = 0.258129289418; 
	r[ 4][ 0] = 1.459995310470; r[ 4][ 1] = 0.227826574209; r[ 4][ 2] = 0.397358949897; r[ 4][ 3] = 0.240836614802; r[ 4][ 4] = 0.000000000000; 
	r[ 4][ 5] = 0.329801504630; r[ 4][ 6] = 0.140748891814; r[ 4][ 7] = 0.418203192284; r[ 4][ 8] = 0.354058109831; r[ 4][ 9] = 0.774894022794; 
	r[ 4][10] = 0.831842640142; r[ 4][11] = 0.285078800906; r[ 4][12] = 0.767688823480; r[ 4][13] = 0.441337471187; r[ 4][14] = 0.356008498769; 
	r[ 4][15] = 1.197188415094; r[ 4][16] = 1.119831358516; r[ 4][17] = 0.527664418872; r[ 4][18] = 0.470237733696; r[ 4][19] = 1.116352478606; 
	r[ 5][ 0] = 1.199705704602; r[ 5][ 1] = 3.020833610064; r[ 5][ 2] = 1.839216146992; r[ 5][ 3] = 1.190945703396; r[ 5][ 4] = 0.329801504630; 
	r[ 5][ 5] = 0.000000000000; r[ 5][ 6] = 5.528919177928; r[ 5][ 7] = 0.609846305383; r[ 5][ 8] = 2.435341131140; r[ 5][ 9] = 0.236202451204; 
	r[ 5][10] = 0.580737093181; r[ 5][11] = 3.945277674515; r[ 5][12] = 2.494896077113; r[ 5][13] = 0.144356959750; r[ 5][14] = 0.858570575674; 
	r[ 5][15] = 1.934870924596; r[ 5][16] = 1.277480294596; r[ 5][17] = 0.758653808642; r[ 5][18] = 0.958989742850; r[ 5][19] = 0.530785790125; 
	r[ 6][ 0] = 1.170949042800; r[ 6][ 1] = 1.360574190420; r[ 6][ 2] = 1.240488508640; r[ 6][ 3] = 3.761625208368; r[ 6][ 4] = 0.140748891814; 
	r[ 6][ 5] = 5.528919177928; r[ 6][ 6] = 0.000000000000; r[ 6][ 7] = 0.423579992176; r[ 6][ 8] = 1.626891056982; r[ 6][ 9] = 0.186848046932; 
	r[ 6][10] = 0.372625175087; r[ 6][11] = 2.802427151679; r[ 6][12] = 0.555415397470; r[ 6][13] = 0.291409084165; r[ 6][14] = 0.926563934846; 
	r[ 6][15] = 1.769893238937; r[ 6][16] = 1.071097236007; r[ 6][17] = 0.407635648938; r[ 6][18] = 0.596719300346; r[ 6][19] = 0.524253846338; 
	r[ 7][ 0] = 1.955883574960; r[ 7][ 1] = 0.418763308518; r[ 7][ 2] = 1.355872344485; r[ 7][ 3] = 0.798473248968; r[ 7][ 4] = 0.418203192284; 
	r[ 7][ 5] = 0.609846305383; r[ 7][ 6] = 0.423579992176; r[ 7][ 7] = 0.000000000000; r[ 7][ 8] = 0.539859124954; r[ 7][ 9] = 0.189296292376; 
	r[ 7][10] = 0.217721159236; r[ 7][11] = 0.752042440303; r[ 7][12] = 0.459436173579; r[ 7][13] = 0.368166464453; r[ 7][14] = 0.504086599527; 
	r[ 7][15] = 1.509326253224; r[ 7][16] = 0.641436011405; r[ 7][17] = 0.508358924638; r[ 7][18] = 0.308055737035; r[ 7][19] = 0.253340790190; 
	r[ 8][ 0] = 0.716241444998; r[ 8][ 1] = 1.456141166336; r[ 8][ 2] = 2.414501434208; r[ 8][ 3] = 0.778142664022; r[ 8][ 4] = 0.354058109831; 
	r[ 8][ 5] = 2.435341131140; r[ 8][ 6] = 1.626891056982; r[ 8][ 7] = 0.539859124954; r[ 8][ 8] = 0.000000000000; r[ 8][ 9] = 0.252718447885; 
	r[ 8][10] = 0.348072209797; r[ 8][11] = 1.022507035889; r[ 8][12] = 0.984311525359; r[ 8][13] = 0.714533703928; r[ 8][14] = 0.527007339151; 
	r[ 8][15] = 1.117029762910; r[ 8][16] = 0.585407090225; r[ 8][17] = 0.301248600780; r[ 8][18] = 4.218953969389; r[ 8][19] = 0.201555971750; 
	r[ 9][ 0] = 0.605899003687; r[ 9][ 1] = 0.232036445142; r[ 9][ 2] = 0.283017326278; r[ 9][ 3] = 0.418555732462; r[ 9][ 4] = 0.774894022794; 
	r[ 9][ 5] = 0.236202451204; r[ 9][ 6] = 0.186848046932; r[ 9][ 7] = 0.189296292376; r[ 9][ 8] = 0.252718447885; r[ 9][ 9] = 0.000000000000; 
	r[ 9][10] = 3.890963773304; r[ 9][11] = 0.406193586642; r[ 9][12] = 3.364797763104; r[ 9][13] = 1.517359325954; r[ 9][14] = 0.388355409206; 
	r[ 9][15] = 0.357544412460; r[ 9][16] = 1.179091197260; r[ 9][17] = 0.341985787540; r[ 9][18] = 0.674617093228; r[ 9][19] = 8.311839405458; 
	r[10][ 0] = 0.800016530518; r[10][ 1] = 0.622711669692; r[10][ 2] = 0.211888159615; r[10][ 3] = 0.218131577594; r[10][ 4] = 0.831842640142; 
	r[10][ 5] = 0.580737093181; r[10][ 6] = 0.372625175087; r[10][ 7] = 0.217721159236; r[10][ 8] = 0.348072209797; r[10][ 9] = 3.890963773304; 
	r[10][10] = 0.000000000000; r[10][11] = 0.445570274261; r[10][12] = 6.030559379572; r[10][13] = 2.064839703237; r[10][14] = 0.374555687471; 
	r[10][15] = 0.352969184527; r[10][16] = 0.915259857694; r[10][17] = 0.691474634600; r[10][18] = 0.811245856323; r[10][19] = 2.231405688913; 
	r[11][ 0] = 1.295201266783; r[11][ 1] = 5.411115141489; r[11][ 2] = 1.593137043457; r[11][ 3] = 1.032447924952; r[11][ 4] = 0.285078800906; 
	r[11][ 5] = 3.945277674515; r[11][ 6] = 2.802427151679; r[11][ 7] = 0.752042440303; r[11][ 8] = 1.022507035889; r[11][ 9] = 0.406193586642; 
	r[11][10] = 0.445570274261; r[11][11] = 0.000000000000; r[11][12] = 1.073061184332; r[11][13] = 0.266924750511; r[11][14] = 1.047383450722; 
	r[11][15] = 1.752165917819; r[11][16] = 1.303875200799; r[11][17] = 0.332243040634; r[11][18] = 0.717993486900; r[11][19] = 0.498138475304; 
	r[12][ 0] = 1.253758266664; r[12][ 1] = 0.983692987457; r[12][ 2] = 0.648441278787; r[12][ 3] = 0.222621897958; r[12][ 4] = 0.767688823480; 
	r[12][ 5] = 2.494896077113; r[12][ 6] = 0.555415397470; r[12][ 7] = 0.459436173579; r[12][ 8] = 0.984311525359; r[12][ 9] = 3.364797763104; 
	r[12][10] = 6.030559379572; r[12][11] = 1.073061184332; r[12][12] = 0.000000000000; r[12][13] = 1.773855168830; r[12][14] = 0.454123625103; 
	r[12][15] = 0.918723415746; r[12][16] = 1.488548053722; r[12][17] = 0.888101098152; r[12][18] = 0.951682162246; r[12][19] = 2.575850755315; 
	r[13][ 0] = 0.492964679748; r[13][ 1] = 0.371644693209; r[13][ 2] = 0.354861249223; r[13][ 3] = 0.281730694207; r[13][ 4] = 0.441337471187; 
	r[13][ 5] = 0.144356959750; r[13][ 6] = 0.291409084165; r[13][ 7] = 0.368166464453; r[13][ 8] = 0.714533703928; r[13][ 9] = 1.517359325954; 
	r[13][10] = 2.064839703237; r[13][11] = 0.266924750511; r[13][12] = 1.773855168830; r[13][13] = 0.000000000000; r[13][14] = 0.233597909629; 
	r[13][15] = 0.540027644824; r[13][16] = 0.488206118793; r[13][17] = 2.074324893497; r[13][18] = 6.747260430801; r[13][19] = 0.838119610178; 
	r[14][ 0] = 1.173275900924; r[14][ 1] = 0.448133661718; r[14][ 2] = 0.494887043702; r[14][ 3] = 0.730628272998; r[14][ 4] = 0.356008498769; 
	r[14][ 5] = 0.858570575674; r[14][ 6] = 0.926563934846; r[14][ 7] = 0.504086599527; r[14][ 8] = 0.527007339151; r[14][ 9] = 0.388355409206; 
	r[14][10] = 0.374555687471; r[14][11] = 1.047383450722; r[14][12] = 0.454123625103; r[14][13] = 0.233597909629; r[14][14] = 0.000000000000; 
	r[14][15] = 1.169129577716; r[14][16] = 1.005451683149; r[14][17] = 0.252214830027; r[14][18] = 0.369405319355; r[14][19] = 0.496908410676; 
	r[15][ 0] = 4.325092687057; r[15][ 1] = 1.122783104210; r[15][ 2] = 2.904101656456; r[15][ 3] = 1.582754142065; r[15][ 4] = 1.197188415094; 
	r[15][ 5] = 1.934870924596; r[15][ 6] = 1.769893238937; r[15][ 7] = 1.509326253224; r[15][ 8] = 1.117029762910; r[15][ 9] = 0.357544412460; 
	r[15][10] = 0.352969184527; r[15][11] = 1.752165917819; r[15][12] = 0.918723415746; r[15][13] = 0.540027644824; r[15][14] = 1.169129577716; 
	r[15][15] = 0.000000000000; r[15][16] = 5.151556292270; r[15][17] = 0.387925622098; r[15][18] = 0.796751520761; r[15][19] = 0.561925457442; 
	r[16][ 0] = 1.729178019485; r[16][ 1] = 0.914665954563; r[16][ 2] = 1.898173634533; r[16][ 3] = 0.934187509431; r[16][ 4] = 1.119831358516; 
	r[16][ 5] = 1.277480294596; r[16][ 6] = 1.071097236007; r[16][ 7] = 0.641436011405; r[16][ 8] = 0.585407090225; r[16][ 9] = 1.179091197260; 
	r[16][10] = 0.915259857694; r[16][11] = 1.303875200799; r[16][12] = 1.488548053722; r[16][13] = 0.488206118793; r[16][14] = 1.005451683149; 
	r[16][15] = 5.151556292270; r[16][16] = 0.000000000000; r[16][17] = 0.513128126891; r[16][18] = 0.801010243199; r[16][19] = 2.253074051176; 
	r[17][ 0] = 0.465839367725; r[17][ 1] = 0.426382310122; r[17][ 2] = 0.191482046247; r[17][ 3] = 0.145345046279; r[17][ 4] = 0.527664418872; 
	r[17][ 5] = 0.758653808642; r[17][ 6] = 0.407635648938; r[17][ 7] = 0.508358924638; r[17][ 8] = 0.301248600780; r[17][ 9] = 0.341985787540; 
	r[17][10] = 0.691474634600; r[17][11] = 0.332243040634; r[17][12] = 0.888101098152; r[17][13] = 2.074324893497; r[17][14] = 0.252214830027; 
	r[17][15] = 0.387925622098; r[17][16] = 0.513128126891; r[17][17] = 0.000000000000; r[17][18] = 4.054419006558; r[17][19] = 0.266508731426; 
	r[18][ 0] = 0.718206697586; r[18][ 1] = 0.720517441216; r[18][ 2] = 0.538222519037; r[18][ 3] = 0.261422208965; r[18][ 4] = 0.470237733696; 
	r[18][ 5] = 0.958989742850; r[18][ 6] = 0.596719300346; r[18][ 7] = 0.308055737035; r[18][ 8] = 4.218953969389; r[18][ 9] = 0.674617093228; 
	r[18][10] = 0.811245856323; r[18][11] = 0.717993486900; r[18][12] = 0.951682162246; r[18][13] = 6.747260430801; r[18][14] = 0.369405319355; 
	r[18][15] = 0.796751520761; r[18][16] = 0.801010243199; r[18][17] = 4.054419006558; r[18][18] = 0.000000000000; r[18][19] = 1.000000000000; 
	r[19][ 0] = 2.187774522005; r[19][ 1] = 0.438388343772; r[19][ 2] = 0.312858797993; r[19][ 3] = 0.258129289418; r[19][ 4] = 1.116352478606; 
	r[19][ 5] = 0.530785790125; r[19][ 6] = 0.524253846338; r[19][ 7] = 0.253340790190; r[19][ 8] = 0.201555971750; r[19][ 9] = 8.311839405458; 
	r[19][10] = 2.231405688913; r[19][11] = 0.498138475304; r[19][12] = 2.575850755315; r[19][13] = 0.838119610178; r[19][14] = 0.496908410676; 
	r[19][15] = 0.561925457442; r[19][16] = 2.253074051176; r[19][17] = 0.266508731426; r[19][18] = 1.000000000000; r[19][19] = 0.000000000000; 	
}

void hivbRMatrix(double **r)
{
     r[ 0][ 0] =         0.0;  r[ 0][ 1] =    0.307507;  r[ 0][ 2] =       0.005; 
     r[ 0][ 3] =     1.45504;  r[ 0][ 4] =    0.123758;  r[ 0][ 5] =   0.0551128; 
     r[ 0][ 6] =     1.48135;  r[ 0][ 7] =     2.13536;  r[ 0][ 8] =   0.0847613; 
     r[ 0][ 9] =       0.005;  r[ 0][10] =    0.215256;  r[ 0][11] =       0.005; 
     r[ 0][12] =   0.0186643;  r[ 0][13] =   0.0141269;  r[ 0][14] =     2.12217; 
     r[ 0][15] =     2.46633;  r[ 0][16] =     15.9183;  r[ 0][17] =       0.005; 
     r[ 0][18] =       0.005;  r[ 0][19] =     7.61428; 
     r[ 1][ 0] =    0.307507;  r[ 1][ 1] =         0.0;  r[ 1][ 2] =    0.295543; 
     r[ 1][ 3] =       0.005;  r[ 1][ 4] =    0.351721;  r[ 1][ 5] =      3.4215; 
     r[ 1][ 6] =   0.0749218;  r[ 1][ 7] =     3.65345;  r[ 1][ 8] =     9.04044; 
     r[ 1][ 9] =    0.677289;  r[ 1][10] =    0.701427;  r[ 1][11] =       20.45; 
     r[ 1][12] =     2.51394;  r[ 1][13] =       0.005;  r[ 1][14] =     1.28355; 
     r[ 1][15] =      3.4791;  r[ 1][16] =     2.86868;  r[ 1][17] =    0.991338; 
     r[ 1][18] =  0.00991826;  r[ 1][19] =   0.0812454; 
     r[ 2][ 0] =       0.005;  r[ 2][ 1] =    0.295543;  r[ 2][ 2] =         0.0; 
     r[ 2][ 3] =     17.6612;  r[ 2][ 4] =   0.0860642;  r[ 2][ 5] =    0.672052; 
     r[ 2][ 6] =   0.0792633;  r[ 2][ 7] =    0.323401;  r[ 2][ 8] =     7.64585; 
     r[ 2][ 9] =    0.680565;  r[ 2][10] =       0.005;  r[ 2][11] =     7.90443; 
     r[ 2][12] =       0.005;  r[ 2][13] =       0.005;  r[ 2][14] =  0.00739578; 
     r[ 2][15] =     13.1447;  r[ 2][16] =     6.88667;  r[ 2][17] =       0.005; 
     r[ 2][18] =     1.76417;  r[ 2][19] =    0.026656; 
     r[ 3][ 0] =     1.45504;  r[ 3][ 1] =       0.005;  r[ 3][ 2] =     17.6612; 
     r[ 3][ 3] =         0.0;  r[ 3][ 4] =       0.005;  r[ 3][ 5] =       0.005; 
     r[ 3][ 6] =     10.5872;  r[ 3][ 7] =     2.83806;  r[ 3][ 8] =      1.9169; 
     r[ 3][ 9] =   0.0176792;  r[ 3][10] =  0.00876048;  r[ 3][11] =       0.005; 
     r[ 3][12] =       0.005;  r[ 3][13] =       0.005;  r[ 3][14] =   0.0342658; 
     r[ 3][15] =     0.52823;  r[ 3][16] =    0.274724;  r[ 3][17] =       0.005; 
     r[ 3][18] =    0.674653;  r[ 3][19] =     1.04793; 
     r[ 4][ 0] =    0.123758;  r[ 4][ 1] =    0.351721;  r[ 4][ 2] =   0.0860642; 
     r[ 4][ 3] =       0.005;  r[ 4][ 4] =         0.0;  r[ 4][ 5] =       0.005; 
     r[ 4][ 6] =       0.005;  r[ 4][ 7] =    0.897871;  r[ 4][ 8] =    0.240073; 
     r[ 4][ 9] =       0.005;  r[ 4][10] =    0.129777;  r[ 4][11] =       0.005; 
     r[ 4][12] =       0.005;  r[ 4][13] =     9.29815;  r[ 4][14] =       0.005; 
     r[ 4][15] =     4.69314;  r[ 4][16] =    0.739969;  r[ 4][17] =     2.63277; 
     r[ 4][18] =     7.57932;  r[ 4][19] =    0.420027; 
     r[ 5][ 0] =   0.0551128;  r[ 5][ 1] =      3.4215;  r[ 5][ 2] =    0.672052; 
     r[ 5][ 3] =       0.005;  r[ 5][ 4] =       0.005;  r[ 5][ 5] =         0.0; 
     r[ 5][ 6] =      2.5602;  r[ 5][ 7] =   0.0619137;  r[ 5][ 8] =     7.05545; 
     r[ 5][ 9] =       0.005;  r[ 5][10] =     1.49456;  r[ 5][11] =     6.54737; 
     r[ 5][12] =    0.303676;  r[ 5][13] =       0.005;  r[ 5][14] =     4.47211; 
     r[ 5][15] =    0.116311;  r[ 5][16] =    0.243589;  r[ 5][17] =    0.026656; 
     r[ 5][18] =    0.113033;  r[ 5][19] =   0.0209153; 
     r[ 6][ 0] =     1.48135;  r[ 6][ 1] =   0.0749218;  r[ 6][ 2] =   0.0792633; 
     r[ 6][ 3] =     10.5872;  r[ 6][ 4] =       0.005;  r[ 6][ 5] =      2.5602; 
     r[ 6][ 6] =         0.0;  r[ 6][ 7] =     3.92775;  r[ 6][ 8] =     0.11974; 
     r[ 6][ 9] =  0.00609079;  r[ 6][10] =       0.005;  r[ 6][11] =     4.61482; 
     r[ 6][12] =    0.175789;  r[ 6][13] =       0.005;  r[ 6][14] =   0.0120226; 
     r[ 6][15] =       0.005;  r[ 6][16] =    0.289774;  r[ 6][17] =       0.005; 
     r[ 6][18] =   0.0792633;  r[ 6][19] =     1.02847; 
     r[ 7][ 0] =     2.13536;  r[ 7][ 1] =     3.65345;  r[ 7][ 2] =    0.323401; 
     r[ 7][ 3] =     2.83806;  r[ 7][ 4] =    0.897871;  r[ 7][ 5] =   0.0619137; 
     r[ 7][ 6] =     3.92775;  r[ 7][ 7] =         0.0;  r[ 7][ 8] =       0.005; 
     r[ 7][ 9] =       0.005;  r[ 7][10] =       0.005;  r[ 7][11] =    0.521705; 
     r[ 7][12] =       0.005;  r[ 7][13] =    0.291561;  r[ 7][14] =       0.005; 
     r[ 7][15] =     4.38041;  r[ 7][16] =    0.369615;  r[ 7][17] =     1.21674; 
     r[ 7][18] =       0.005;  r[ 7][19] =    0.953155; 
     r[ 8][ 0] =   0.0847613;  r[ 8][ 1] =     9.04044;  r[ 8][ 2] =     7.64585; 
     r[ 8][ 3] =      1.9169;  r[ 8][ 4] =    0.240073;  r[ 8][ 5] =     7.05545; 
     r[ 8][ 6] =     0.11974;  r[ 8][ 7] =       0.005;  r[ 8][ 8] =         0.0; 
     r[ 8][ 9] =    0.103111;  r[ 8][10] =     1.74171;  r[ 8][11] =       0.005; 
     r[ 8][12] =       0.005;  r[ 8][13] =    0.145558;  r[ 8][14] =     2.45318; 
     r[ 8][15] =    0.382747;  r[ 8][16] =    0.711594;  r[ 8][17] =   0.0695179; 
     r[ 8][18] =     18.6943;  r[ 8][19] =       0.005; 
     r[ 9][ 0] =       0.005;  r[ 9][ 1] =    0.677289;  r[ 9][ 2] =    0.680565; 
     r[ 9][ 3] =   0.0176792;  r[ 9][ 4] =       0.005;  r[ 9][ 5] =       0.005; 
     r[ 9][ 6] =  0.00609079;  r[ 9][ 7] =       0.005;  r[ 9][ 8] =    0.103111; 
     r[ 9][ 9] =         0.0;  r[ 9][10] =     5.95879;  r[ 9][11] =    0.322319; 
     r[ 9][12] =     11.2065;  r[ 9][13] =     3.39836;  r[ 9][14] =   0.0410593; 
     r[ 9][15] =     1.21803;  r[ 9][16] =     8.61217;  r[ 9][17] =       0.005; 
     r[ 9][18] =    0.148168;  r[ 9][19] =     17.7389; 
     r[10][ 0] =    0.215256;  r[10][ 1] =    0.701427;  r[10][ 2] =       0.005; 
     r[10][ 3] =  0.00876048;  r[10][ 4] =    0.129777;  r[10][ 5] =     1.49456; 
     r[10][ 6] =       0.005;  r[10][ 7] =       0.005;  r[10][ 8] =     1.74171; 
     r[10][ 9] =     5.95879;  r[10][10] =         0.0;  r[10][11] =   0.0814995; 
     r[10][12] =     5.31961;  r[10][13] =     8.52484;  r[10][14] =     2.07757; 
     r[10][15] =    0.927656;  r[10][16] =   0.0437673;  r[10][17] =    0.748843; 
     r[10][18] =    0.111986;  r[10][19] =     1.41036; 
     r[11][ 0] =       0.005;  r[11][ 1] =       20.45;  r[11][ 2] =     7.90443; 
     r[11][ 3] =       0.005;  r[11][ 4] =       0.005;  r[11][ 5] =     6.54737; 
     r[11][ 6] =     4.61482;  r[11][ 7] =    0.521705;  r[11][ 8] =       0.005; 
     r[11][ 9] =    0.322319;  r[11][10] =   0.0814995;  r[11][11] =         0.0; 
     r[11][12] =     1.28246;  r[11][13] =   0.0342658;  r[11][14] =   0.0313862; 
     r[11][15] =    0.504111;  r[11][16] =     4.67142;  r[11][17] =       0.005; 
     r[11][18] =       0.005;  r[11][19] =    0.265829; 
     r[12][ 0] =   0.0186643;  r[12][ 1] =     2.51394;  r[12][ 2] =       0.005; 
     r[12][ 3] =       0.005;  r[12][ 4] =       0.005;  r[12][ 5] =    0.303676; 
     r[12][ 6] =    0.175789;  r[12][ 7] =       0.005;  r[12][ 8] =       0.005; 
     r[12][ 9] =     11.2065;  r[12][10] =     5.31961;  r[12][11] =     1.28246; 
     r[12][12] =         0.0;  r[12][13] =    0.188025;  r[12][14] =       0.005; 
     r[12][15] =       0.005;  r[12][16] =     4.94026;  r[12][17] =    0.089078; 
     r[12][18] =       0.005;  r[12][19] =      6.8532; 
     r[13][ 0] =   0.0141269;  r[13][ 1] =       0.005;  r[13][ 2] =       0.005; 
     r[13][ 3] =       0.005;  r[13][ 4] =     9.29815;  r[13][ 5] =       0.005; 
     r[13][ 6] =       0.005;  r[13][ 7] =    0.291561;  r[13][ 8] =    0.145558; 
     r[13][ 9] =     3.39836;  r[13][10] =     8.52484;  r[13][11] =   0.0342658; 
     r[13][12] =    0.188025;  r[13][13] =         0.0;  r[13][14] =       0.005; 
     r[13][15] =    0.956472;  r[13][16] =   0.0141269;  r[13][17] =    0.829343; 
     r[13][18] =       15.34;  r[13][19] =    0.723274; 
     r[14][ 0] =     2.12217;  r[14][ 1] =     1.28355;  r[14][ 2] =  0.00739578; 
     r[14][ 3] =   0.0342658;  r[14][ 4] =       0.005;  r[14][ 5] =     4.47211; 
     r[14][ 6] =   0.0120226;  r[14][ 7] =       0.005;  r[14][ 8] =     2.45318; 
     r[14][ 9] =   0.0410593;  r[14][10] =     2.07757;  r[14][11] =   0.0313862; 
     r[14][12] =       0.005;  r[14][13] =       0.005;  r[14][14] =         0.0; 
     r[14][15] =     5.37762;  r[14][16] =     2.01417;  r[14][17] =   0.0444506; 
     r[14][18] =   0.0304381;  r[14][19] =       0.005; 
     r[15][ 0] =     2.46633;  r[15][ 1] =      3.4791;  r[15][ 2] =     13.1447; 
     r[15][ 3] =     0.52823;  r[15][ 4] =     4.69314;  r[15][ 5] =    0.116311; 
     r[15][ 6] =       0.005;  r[15][ 7] =     4.38041;  r[15][ 8] =    0.382747; 
     r[15][ 9] =     1.21803;  r[15][10] =    0.927656;  r[15][11] =    0.504111; 
     r[15][12] =       0.005;  r[15][13] =    0.956472;  r[15][14] =     5.37762; 
     r[15][15] =         0.0;  r[15][16] =     8.93107;  r[15][17] =   0.0248728; 
     r[15][18] =    0.648024;  r[15][19] =   0.0749218; 
     r[16][ 0] =     15.9183;  r[16][ 1] =     2.86868;  r[16][ 2] =     6.88667; 
     r[16][ 3] =    0.274724;  r[16][ 4] =    0.739969;  r[16][ 5] =    0.243589; 
     r[16][ 6] =    0.289774;  r[16][ 7] =    0.369615;  r[16][ 8] =    0.711594; 
     r[16][ 9] =     8.61217;  r[16][10] =   0.0437673;  r[16][11] =     4.67142; 
     r[16][12] =     4.94026;  r[16][13] =   0.0141269;  r[16][14] =     2.01417; 
     r[16][15] =     8.93107;  r[16][16] =         0.0;  r[16][17] =       0.005; 
     r[16][18] =    0.105652;  r[16][19] =    0.709226; 
     r[17][ 0] =       0.005;  r[17][ 1] =    0.991338;  r[17][ 2] =       0.005; 
     r[17][ 3] =       0.005;  r[17][ 4] =     2.63277;  r[17][ 5] =    0.026656; 
     r[17][ 6] =       0.005;  r[17][ 7] =     1.21674;  r[17][ 8] =   0.0695179; 
     r[17][ 9] =       0.005;  r[17][10] =    0.748843;  r[17][11] =       0.005; 
     r[17][12] =    0.089078;  r[17][13] =    0.829343;  r[17][14] =   0.0444506; 
     r[17][15] =   0.0248728;  r[17][16] =       0.005;  r[17][17] =         0.0; 
     r[17][18] =     1.28022;  r[17][19] =       0.005; 
     r[18][ 0] =       0.005;  r[18][ 1] =  0.00991826;  r[18][ 2] =     1.76417; 
     r[18][ 3] =    0.674653;  r[18][ 4] =     7.57932;  r[18][ 5] =    0.113033; 
     r[18][ 6] =   0.0792633;  r[18][ 7] =       0.005;  r[18][ 8] =     18.6943; 
     r[18][ 9] =    0.148168;  r[18][10] =    0.111986;  r[18][11] =       0.005; 
     r[18][12] =       0.005;  r[18][13] =       15.34;  r[18][14] =   0.0304381; 
     r[18][15] =    0.648024;  r[18][16] =    0.105652;  r[18][17] =     1.28022; 
     r[18][18] =         0.0;  r[18][19] =   0.0410593; 
     r[19][ 0] =     7.61428;  r[19][ 1] =   0.0812454;  r[19][ 2] =    0.026656; 
     r[19][ 3] =     1.04793;  r[19][ 4] =    0.420027;  r[19][ 5] =   0.0209153; 
     r[19][ 6] =     1.02847;  r[19][ 7] =    0.953155;  r[19][ 8] =       0.005; 
     r[19][ 9] =     17.7389;  r[19][10] =     1.41036;  r[19][11] =    0.265829; 
     r[19][12] =      6.8532;  r[19][13] =    0.723274;  r[19][14] =       0.005; 
     r[19][15] =   0.0749218;  r[19][16] =    0.709226;  r[19][17] =       0.005; 
     r[19][18] =   0.0410593;  r[19][19] =         0.0; 
}


/*

This is from the original publication, and is the one in PAML.  The
one in phyml differs slightly in that the numbers other than 0.2 have
a single digit after the decimal point.

void mtartRMatrix(double **r)
{
     r[ 0][ 0] =     0.0;  r[ 0][ 1] =     0.2;  r[ 0][ 2] =     0.2; 
     r[ 0][ 3] =     1.0;  r[ 0][ 4] =   254.0;  r[ 0][ 5] =     0.2; 
     r[ 0][ 6] =     0.2;  r[ 0][ 7] =   200.0;  r[ 0][ 8] =     0.2; 
     r[ 0][ 9] =    26.0;  r[ 0][10] =     4.0;  r[ 0][11] =     0.2; 
     r[ 0][12] =   121.0;  r[ 0][13] =    13.0;  r[ 0][14] =    49.0; 
     r[ 0][15] =   673.0;  r[ 0][16] =   244.0;  r[ 0][17] =     0.2; 
     r[ 0][18] =     1.0;  r[ 0][19] =   340.0; 
     r[ 1][ 0] =     0.2;  r[ 1][ 1] =     0.0;  r[ 1][ 2] =     0.2; 
     r[ 1][ 3] =     4.0;  r[ 1][ 4] =    36.0;  r[ 1][ 5] =   154.0; 
     r[ 1][ 6] =     0.2;  r[ 1][ 7] =     0.2;  r[ 1][ 8] =    41.0; 
     r[ 1][ 9] =     2.0;  r[ 1][10] =     2.0;  r[ 1][11] =   209.0; 
     r[ 1][12] =     5.0;  r[ 1][13] =     5.0;  r[ 1][14] =     0.2; 
     r[ 1][15] =     3.0;  r[ 1][16] =     0.2;  r[ 1][17] =     0.2; 
     r[ 1][18] =     4.0;  r[ 1][19] =     0.2; 
     r[ 2][ 0] =     0.2;  r[ 2][ 1] =     0.2;  r[ 2][ 2] =     0.0; 
     r[ 2][ 3] =   500.0;  r[ 2][ 4] =    98.0;  r[ 2][ 5] =   262.0; 
     r[ 2][ 6] =   183.0;  r[ 2][ 7] =   121.0;  r[ 2][ 8] =   180.0; 
     r[ 2][ 9] =    21.0;  r[ 2][10] =    13.0;  r[ 2][11] =   467.0; 
     r[ 2][12] =    79.0;  r[ 2][13] =    20.0;  r[ 2][14] =    17.0; 
     r[ 2][15] =   398.0;  r[ 2][16] =   166.0;  r[ 2][17] =     8.0; 
     r[ 2][18] =   251.0;  r[ 2][19] =    23.0; 
     r[ 3][ 0] =     1.0;  r[ 3][ 1] =     4.0;  r[ 3][ 2] =   500.0; 
     r[ 3][ 3] =     0.0;  r[ 3][ 4] =    11.0;  r[ 3][ 5] =     0.2; 
     r[ 3][ 6] =   862.0;  r[ 3][ 7] =    12.0;  r[ 3][ 8] =     0.2; 
     r[ 3][ 9] =     7.0;  r[ 3][10] =     1.0;  r[ 3][11] =     2.0; 
     r[ 3][12] =     0.2;  r[ 3][13] =     0.2;  r[ 3][14] =     0.2; 
     r[ 3][15] =    44.0;  r[ 3][16] =     0.2;  r[ 3][17] =     0.2; 
     r[ 3][18] =     0.2;  r[ 3][19] =     0.2; 
     r[ 4][ 0] =   254.0;  r[ 4][ 1] =    36.0;  r[ 4][ 2] =    98.0; 
     r[ 4][ 3] =    11.0;  r[ 4][ 4] =     0.0;  r[ 4][ 5] =     0.2; 
     r[ 4][ 6] =     0.2;  r[ 4][ 7] =    81.0;  r[ 4][ 8] =    12.0; 
     r[ 4][ 9] =    63.0;  r[ 4][10] =    79.0;  r[ 4][11] =     0.2; 
     r[ 4][12] =   312.0;  r[ 4][13] =   184.0;  r[ 4][14] =     0.2; 
     r[ 4][15] =   664.0;  r[ 4][16] =   183.0;  r[ 4][17] =    22.0; 
     r[ 4][18] =    72.0;  r[ 4][19] =   350.0; 
     r[ 5][ 0] =     0.2;  r[ 5][ 1] =   154.0;  r[ 5][ 2] =   262.0; 
     r[ 5][ 3] =     0.2;  r[ 5][ 4] =     0.2;  r[ 5][ 5] =     0.0; 
     r[ 5][ 6] =   262.0;  r[ 5][ 7] =     3.0;  r[ 5][ 8] =   314.0; 
     r[ 5][ 9] =    11.0;  r[ 5][10] =    16.0;  r[ 5][11] =   349.0; 
     r[ 5][12] =    67.0;  r[ 5][13] =     0.2;  r[ 5][14] =    39.0; 
     r[ 5][15] =    52.0;  r[ 5][16] =    44.0;  r[ 5][17] =     7.0; 
     r[ 5][18] =    87.0;  r[ 5][19] =     0.2; 
     r[ 6][ 0] =     0.2;  r[ 6][ 1] =     0.2;  r[ 6][ 2] =   183.0; 
     r[ 6][ 3] =   862.0;  r[ 6][ 4] =     0.2;  r[ 6][ 5] =   262.0; 
     r[ 6][ 6] =     0.0;  r[ 6][ 7] =    44.0;  r[ 6][ 8] =    15.0; 
     r[ 6][ 9] =     7.0;  r[ 6][10] =     2.0;  r[ 6][11] =   106.0; 
     r[ 6][12] =     0.2;  r[ 6][13] =     0.2;  r[ 6][14] =     8.0; 
     r[ 6][15] =    31.0;  r[ 6][16] =    43.0;  r[ 6][17] =    11.0; 
     r[ 6][18] =     8.0;  r[ 6][19] =    14.0; 
     r[ 7][ 0] =   200.0;  r[ 7][ 1] =     0.2;  r[ 7][ 2] =   121.0; 
     r[ 7][ 3] =    12.0;  r[ 7][ 4] =    81.0;  r[ 7][ 5] =     3.0; 
     r[ 7][ 6] =    44.0;  r[ 7][ 7] =     0.0;  r[ 7][ 8] =     0.2; 
     r[ 7][ 9] =     3.0;  r[ 7][10] =     1.0;  r[ 7][11] =     0.2; 
     r[ 7][12] =    56.0;  r[ 7][13] =     1.0;  r[ 7][14] =     0.2; 
     r[ 7][15] =   226.0;  r[ 7][16] =     0.2;  r[ 7][17] =     2.0; 
     r[ 7][18] =     9.0;  r[ 7][19] =     3.0; 
     r[ 8][ 0] =     0.2;  r[ 8][ 1] =    41.0;  r[ 8][ 2] =   180.0; 
     r[ 8][ 3] =     0.2;  r[ 8][ 4] =    12.0;  r[ 8][ 5] =   314.0; 
     r[ 8][ 6] =    15.0;  r[ 8][ 7] =     0.2;  r[ 8][ 8] =     0.0; 
     r[ 8][ 9] =     0.2;  r[ 8][10] =     6.0;  r[ 8][11] =     0.2; 
     r[ 8][12] =     0.2;  r[ 8][13] =    14.0;  r[ 8][14] =     1.0; 
     r[ 8][15] =    11.0;  r[ 8][16] =    19.0;  r[ 8][17] =     0.2; 
     r[ 8][18] =   191.0;  r[ 8][19] =     0.2; 
     r[ 9][ 0] =    26.0;  r[ 9][ 1] =     2.0;  r[ 9][ 2] =    21.0; 
     r[ 9][ 3] =     7.0;  r[ 9][ 4] =    63.0;  r[ 9][ 5] =    11.0; 
     r[ 9][ 6] =     7.0;  r[ 9][ 7] =     3.0;  r[ 9][ 8] =     0.2; 
     r[ 9][ 9] =     0.0;  r[ 9][10] =   515.0;  r[ 9][11] =     3.0; 
     r[ 9][12] =   515.0;  r[ 9][13] =   118.0;  r[ 9][14] =     0.2; 
     r[ 9][15] =     7.0;  r[ 9][16] =   204.0;  r[ 9][17] =     0.2; 
     r[ 9][18] =    12.0;  r[ 9][19] =  1855.0; 
     r[10][ 0] =     4.0;  r[10][ 1] =     2.0;  r[10][ 2] =    13.0; 
     r[10][ 3] =     1.0;  r[10][ 4] =    79.0;  r[10][ 5] =    16.0; 
     r[10][ 6] =     2.0;  r[10][ 7] =     1.0;  r[10][ 8] =     6.0; 
     r[10][ 9] =   515.0;  r[10][10] =     0.0;  r[10][11] =     4.0; 
     r[10][12] =   885.0;  r[10][13] =   263.0;  r[10][14] =    12.0; 
     r[10][15] =     8.0;  r[10][16] =    48.0;  r[10][17] =    21.0; 
     r[10][18] =    20.0;  r[10][19] =    85.0; 
     r[11][ 0] =     0.2;  r[11][ 1] =   209.0;  r[11][ 2] =   467.0; 
     r[11][ 3] =     2.0;  r[11][ 4] =     0.2;  r[11][ 5] =   349.0; 
     r[11][ 6] =   106.0;  r[11][ 7] =     0.2;  r[11][ 8] =     0.2; 
     r[11][ 9] =     3.0;  r[11][10] =     4.0;  r[11][11] =     0.0; 
     r[11][12] =   106.0;  r[11][13] =    11.0;  r[11][14] =    17.0; 
     r[11][15] =   144.0;  r[11][16] =    70.0;  r[11][17] =    16.0; 
     r[11][18] =   117.0;  r[11][19] =    26.0; 
     r[12][ 0] =   121.0;  r[12][ 1] =     5.0;  r[12][ 2] =    79.0; 
     r[12][ 3] =     0.2;  r[12][ 4] =   312.0;  r[12][ 5] =    67.0; 
     r[12][ 6] =     0.2;  r[12][ 7] =    56.0;  r[12][ 8] =     0.2; 
     r[12][ 9] =   515.0;  r[12][10] =   885.0;  r[12][11] =   106.0; 
     r[12][12] =     0.0;  r[12][13] =   322.0;  r[12][14] =     5.0; 
     r[12][15] =   112.0;  r[12][16] =   289.0;  r[12][17] =    71.0; 
     r[12][18] =    71.0;  r[12][19] =   281.0; 
     r[13][ 0] =    13.0;  r[13][ 1] =     5.0;  r[13][ 2] =    20.0; 
     r[13][ 3] =     0.2;  r[13][ 4] =   184.0;  r[13][ 5] =     0.2; 
     r[13][ 6] =     0.2;  r[13][ 7] =     1.0;  r[13][ 8] =    14.0; 
     r[13][ 9] =   118.0;  r[13][10] =   263.0;  r[13][11] =    11.0; 
     r[13][12] =   322.0;  r[13][13] =     0.0;  r[13][14] =    15.0; 
     r[13][15] =    36.0;  r[13][16] =    14.0;  r[13][17] =    54.0; 
     r[13][18] =   792.0;  r[13][19] =    52.0; 
     r[14][ 0] =    49.0;  r[14][ 1] =     0.2;  r[14][ 2] =    17.0; 
     r[14][ 3] =     0.2;  r[14][ 4] =     0.2;  r[14][ 5] =    39.0; 
     r[14][ 6] =     8.0;  r[14][ 7] =     0.2;  r[14][ 8] =     1.0; 
     r[14][ 9] =     0.2;  r[14][10] =    12.0;  r[14][11] =    17.0; 
     r[14][12] =     5.0;  r[14][13] =    15.0;  r[14][14] =     0.0; 
     r[14][15] =    87.0;  r[14][16] =    47.0;  r[14][17] =     0.2; 
     r[14][18] =    18.0;  r[14][19] =    32.0; 
     r[15][ 0] =   673.0;  r[15][ 1] =     3.0;  r[15][ 2] =   398.0; 
     r[15][ 3] =    44.0;  r[15][ 4] =   664.0;  r[15][ 5] =    52.0; 
     r[15][ 6] =    31.0;  r[15][ 7] =   226.0;  r[15][ 8] =    11.0; 
     r[15][ 9] =     7.0;  r[15][10] =     8.0;  r[15][11] =   144.0; 
     r[15][12] =   112.0;  r[15][13] =    36.0;  r[15][14] =    87.0; 
     r[15][15] =     0.0;  r[15][16] =   660.0;  r[15][17] =     2.0; 
     r[15][18] =    30.0;  r[15][19] =    61.0; 
     r[16][ 0] =   244.0;  r[16][ 1] =     0.2;  r[16][ 2] =   166.0; 
     r[16][ 3] =     0.2;  r[16][ 4] =   183.0;  r[16][ 5] =    44.0; 
     r[16][ 6] =    43.0;  r[16][ 7] =     0.2;  r[16][ 8] =    19.0; 
     r[16][ 9] =   204.0;  r[16][10] =    48.0;  r[16][11] =    70.0; 
     r[16][12] =   289.0;  r[16][13] =    14.0;  r[16][14] =    47.0; 
     r[16][15] =   660.0;  r[16][16] =     0.0;  r[16][17] =     0.2; 
     r[16][18] =    46.0;  r[16][19] =   544.0; 
     r[17][ 0] =     0.2;  r[17][ 1] =     0.2;  r[17][ 2] =     8.0; 
     r[17][ 3] =     0.2;  r[17][ 4] =    22.0;  r[17][ 5] =     7.0; 
     r[17][ 6] =    11.0;  r[17][ 7] =     2.0;  r[17][ 8] =     0.2; 
     r[17][ 9] =     0.2;  r[17][10] =    21.0;  r[17][11] =    16.0; 
     r[17][12] =    71.0;  r[17][13] =    54.0;  r[17][14] =     0.2; 
     r[17][15] =     2.0;  r[17][16] =     0.2;  r[17][17] =     0.0; 
     r[17][18] =    38.0;  r[17][19] =     0.2; 
     r[18][ 0] =     1.0;  r[18][ 1] =     4.0;  r[18][ 2] =   251.0; 
     r[18][ 3] =     0.2;  r[18][ 4] =    72.0;  r[18][ 5] =    87.0; 
     r[18][ 6] =     8.0;  r[18][ 7] =     9.0;  r[18][ 8] =   191.0; 
     r[18][ 9] =    12.0;  r[18][10] =    20.0;  r[18][11] =   117.0; 
     r[18][12] =    71.0;  r[18][13] =   792.0;  r[18][14] =    18.0; 
     r[18][15] =    30.0;  r[18][16] =    46.0;  r[18][17] =    38.0; 
     r[18][18] =     0.0;  r[18][19] =     2.0; 
     r[19][ 0] =   340.0;  r[19][ 1] =     0.2;  r[19][ 2] =    23.0; 
     r[19][ 3] =     0.2;  r[19][ 4] =   350.0;  r[19][ 5] =     0.2; 
     r[19][ 6] =    14.0;  r[19][ 7] =     3.0;  r[19][ 8] =     0.2; 
     r[19][ 9] =  1855.0;  r[19][10] =    85.0;  r[19][11] =    26.0; 
     r[19][12] =   281.0;  r[19][13] =    52.0;  r[19][14] =    32.0; 
     r[19][15] =    61.0;  r[19][16] =   544.0;  r[19][17] =     0.2; 
     r[19][18] =     2.0;  r[19][19] =     0.0; 
}
*/

	/* This is the one found in phyml, not the one in the original
	   publication, which is the one in PAML 4.2
     */

void mtartRMatrix(double **r)
{
     r[ 0][ 0] =         0.0;  r[ 0][ 1] =         0.2;  r[ 0][ 2] =         0.2; 
     r[ 0][ 3] =         0.6;  r[ 0][ 4] =       253.5;  r[ 0][ 5] =         0.2; 
     r[ 0][ 6] =         0.2;  r[ 0][ 7] =       199.8;  r[ 0][ 8] =         0.2; 
     r[ 0][ 9] =        25.7;  r[ 0][10] =         3.7;  r[ 0][11] =         0.2; 
     r[ 0][12] =       120.6;  r[ 0][13] =        13.1;  r[ 0][14] =        49.3; 
     r[ 0][15] =       673.0;  r[ 0][16] =       243.9;  r[ 0][17] =         0.2; 
     r[ 0][18] =         1.2;  r[ 0][19] =       339.9; 
     r[ 1][ 0] =         0.2;  r[ 1][ 1] =         0.0;  r[ 1][ 2] =         0.2; 
     r[ 1][ 3] =         4.3;  r[ 1][ 4] =        35.5;  r[ 1][ 5] =       154.0; 
     r[ 1][ 6] =         0.2;  r[ 1][ 7] =         0.2;  r[ 1][ 8] =        41.3; 
     r[ 1][ 9] =         1.8;  r[ 1][10] =         1.8;  r[ 1][11] =       208.6; 
     r[ 1][12] =         5.2;  r[ 1][13] =         4.7;  r[ 1][14] =         0.2; 
     r[ 1][15] =         2.7;  r[ 1][16] =         0.2;  r[ 1][17] =         0.2; 
     r[ 1][18] =         3.9;  r[ 1][19] =         0.2; 
     r[ 2][ 0] =         0.2;  r[ 2][ 1] =         0.2;  r[ 2][ 2] =         0.0; 
     r[ 2][ 3] =       500.2;  r[ 2][ 4] =        98.2;  r[ 2][ 5] =       261.8; 
     r[ 2][ 6] =       183.0;  r[ 2][ 7] =       120.5;  r[ 2][ 8] =       179.5; 
     r[ 2][ 9] =        21.3;  r[ 2][10] =        12.6;  r[ 2][11] =       467.3; 
     r[ 2][12] =        78.8;  r[ 2][13] =        19.7;  r[ 2][14] =        16.5; 
     r[ 2][15] =       398.4;  r[ 2][16] =       165.9;  r[ 2][17] =         7.7; 
     r[ 2][18] =       251.2;  r[ 2][19] =        22.6; 
     r[ 3][ 0] =         0.6;  r[ 3][ 1] =         4.3;  r[ 3][ 2] =       500.2; 
     r[ 3][ 3] =         0.0;  r[ 3][ 4] =        10.6;  r[ 3][ 5] =         0.2; 
     r[ 3][ 6] =       861.8;  r[ 3][ 7] =        12.5;  r[ 3][ 8] =         0.2; 
     r[ 3][ 9] =         6.6;  r[ 3][10] =         1.2;  r[ 3][11] =         1.7; 
     r[ 3][12] =         0.2;  r[ 3][13] =         0.2;  r[ 3][14] =         0.2; 
     r[ 3][15] =        44.4;  r[ 3][16] =         0.2;  r[ 3][17] =         0.2; 
     r[ 3][18] =         0.2;  r[ 3][19] =         0.2; 
     r[ 4][ 0] =       253.5;  r[ 4][ 1] =        35.5;  r[ 4][ 2] =        98.2; 
     r[ 4][ 3] =        10.6;  r[ 4][ 4] =         0.0;  r[ 4][ 5] =         0.2; 
     r[ 4][ 6] =         0.2;  r[ 4][ 7] =        80.5;  r[ 4][ 8] =        12.4; 
     r[ 4][ 9] =        63.0;  r[ 4][10] =        78.7;  r[ 4][11] =         0.2; 
     r[ 4][12] =       312.3;  r[ 4][13] =       184.1;  r[ 4][14] =         0.2; 
     r[ 4][15] =       664.2;  r[ 4][16] =       182.8;  r[ 4][17] =        21.6; 
     r[ 4][18] =        72.0;  r[ 4][19] =       350.4; 
     r[ 5][ 0] =         0.2;  r[ 5][ 1] =       154.0;  r[ 5][ 2] =       261.8; 
     r[ 5][ 3] =         0.2;  r[ 5][ 4] =         0.2;  r[ 5][ 5] =         0.0; 
     r[ 5][ 6] =       261.6;  r[ 5][ 7] =         2.6;  r[ 5][ 8] =       313.5; 
     r[ 5][ 9] =        10.5;  r[ 5][10] =        16.3;  r[ 5][11] =       349.3; 
     r[ 5][12] =        67.3;  r[ 5][13] =         0.2;  r[ 5][14] =        39.3; 
     r[ 5][15] =        52.4;  r[ 5][16] =        43.7;  r[ 5][17] =         6.7; 
     r[ 5][18] =        86.7;  r[ 5][19] =         0.2; 
     r[ 6][ 0] =         0.2;  r[ 6][ 1] =         0.2;  r[ 6][ 2] =       183.0; 
     r[ 6][ 3] =       861.8;  r[ 6][ 4] =         0.2;  r[ 6][ 5] =       261.6; 
     r[ 6][ 6] =         0.0;  r[ 6][ 7] =        43.9;  r[ 6][ 8] =        15.2; 
     r[ 6][ 9] =         6.8;  r[ 6][10] =         1.7;  r[ 6][11] =       106.3; 
     r[ 6][12] =         0.2;  r[ 6][13] =         0.2;  r[ 6][14] =         7.9; 
     r[ 6][15] =        31.5;  r[ 6][16] =        43.4;  r[ 6][17] =        11.0; 
     r[ 6][18] =         7.7;  r[ 6][19] =        13.6; 
     r[ 7][ 0] =       199.8;  r[ 7][ 1] =         0.2;  r[ 7][ 2] =       120.5; 
     r[ 7][ 3] =        12.5;  r[ 7][ 4] =        80.5;  r[ 7][ 5] =         2.6; 
     r[ 7][ 6] =        43.9;  r[ 7][ 7] =         0.0;  r[ 7][ 8] =         0.2; 
     r[ 7][ 9] =         2.7;  r[ 7][10] =         1.4;  r[ 7][11] =         0.2; 
     r[ 7][12] =        55.7;  r[ 7][13] =         0.8;  r[ 7][14] =         0.2; 
     r[ 7][15] =       226.0;  r[ 7][16] =         0.2;  r[ 7][17] =         1.9; 
     r[ 7][18] =         8.6;  r[ 7][19] =         2.6; 
     r[ 8][ 0] =         0.2;  r[ 8][ 1] =        41.3;  r[ 8][ 2] =       179.5; 
     r[ 8][ 3] =         0.2;  r[ 8][ 4] =        12.4;  r[ 8][ 5] =       313.5; 
     r[ 8][ 6] =        15.2;  r[ 8][ 7] =         0.2;  r[ 8][ 8] =         0.0; 
     r[ 8][ 9] =         0.2;  r[ 8][10] =         5.5;  r[ 8][11] =         0.2; 
     r[ 8][12] =         0.2;  r[ 8][13] =        13.8;  r[ 8][14] =         0.8; 
     r[ 8][15] =        10.6;  r[ 8][16] =        18.6;  r[ 8][17] =         0.2; 
     r[ 8][18] =       191.4;  r[ 8][19] =         0.2; 
     r[ 9][ 0] =        25.7;  r[ 9][ 1] =         1.8;  r[ 9][ 2] =        21.3; 
     r[ 9][ 3] =         6.6;  r[ 9][ 4] =        63.0;  r[ 9][ 5] =        10.5; 
     r[ 9][ 6] =         6.8;  r[ 9][ 7] =         2.7;  r[ 9][ 8] =         0.2; 
     r[ 9][ 9] =         0.0;  r[ 9][10] =       514.5;  r[ 9][11] =         3.5; 
     r[ 9][12] =       514.8;  r[ 9][13] =       117.9;  r[ 9][14] =         0.2; 
     r[ 9][15] =         7.2;  r[ 9][16] =       203.7;  r[ 9][17] =         0.2; 
     r[ 9][18] =        12.3;  r[ 9][19] =      1854.5; 
     r[10][ 0] =         3.7;  r[10][ 1] =         1.8;  r[10][ 2] =        12.6; 
     r[10][ 3] =         1.2;  r[10][ 4] =        78.7;  r[10][ 5] =        16.3; 
     r[10][ 6] =         1.7;  r[10][ 7] =         1.4;  r[10][ 8] =         5.5; 
     r[10][ 9] =       514.5;  r[10][10] =         0.0;  r[10][11] =         3.8; 
     r[10][12] =       885.5;  r[10][13] =       262.6;  r[10][14] =        12.2; 
     r[10][15] =         8.2;  r[10][16] =        47.8;  r[10][17] =        21.1; 
     r[10][18] =        19.8;  r[10][19] =        84.7; 
     r[11][ 0] =         0.2;  r[11][ 1] =       208.6;  r[11][ 2] =       467.3; 
     r[11][ 3] =         1.7;  r[11][ 4] =         0.2;  r[11][ 5] =       349.3; 
     r[11][ 6] =       106.3;  r[11][ 7] =         0.2;  r[11][ 8] =         0.2; 
     r[11][ 9] =         3.5;  r[11][10] =         3.8;  r[11][11] =         0.0; 
     r[11][12] =       105.6;  r[11][13] =        10.7;  r[11][14] =        16.8; 
     r[11][15] =       144.2;  r[11][16] =        69.5;  r[11][17] =        16.0; 
     r[11][18] =       117.1;  r[11][19] =        26.1; 
     r[12][ 0] =       120.6;  r[12][ 1] =         5.2;  r[12][ 2] =        78.8; 
     r[12][ 3] =         0.2;  r[12][ 4] =       312.3;  r[12][ 5] =        67.3; 
     r[12][ 6] =         0.2;  r[12][ 7] =        55.7;  r[12][ 8] =         0.2; 
     r[12][ 9] =       514.8;  r[12][10] =       885.5;  r[12][11] =       105.6; 
     r[12][12] =         0.0;  r[12][13] =       321.6;  r[12][14] =         5.3; 
     r[12][15] =       111.7;  r[12][16] =       288.6;  r[12][17] =        70.7; 
     r[12][18] =        70.9;  r[12][19] =       281.3; 
     r[13][ 0] =        13.1;  r[13][ 1] =         4.7;  r[13][ 2] =        19.7; 
     r[13][ 3] =         0.2;  r[13][ 4] =       184.1;  r[13][ 5] =         0.2; 
     r[13][ 6] =         0.2;  r[13][ 7] =         0.8;  r[13][ 8] =        13.8; 
     r[13][ 9] =       117.9;  r[13][10] =       262.6;  r[13][11] =        10.7; 
     r[13][12] =       321.6;  r[13][13] =         0.0;  r[13][14] =        14.6; 
     r[13][15] =        36.1;  r[13][16] =        13.5;  r[13][17] =        53.7; 
     r[13][18] =       791.6;  r[13][19] =        51.9; 
     r[14][ 0] =        49.3;  r[14][ 1] =         0.2;  r[14][ 2] =        16.5; 
     r[14][ 3] =         0.2;  r[14][ 4] =         0.2;  r[14][ 5] =        39.3; 
     r[14][ 6] =         7.9;  r[14][ 7] =         0.2;  r[14][ 8] =         0.8; 
     r[14][ 9] =         0.2;  r[14][10] =        12.2;  r[14][11] =        16.8; 
     r[14][12] =         5.3;  r[14][13] =        14.6;  r[14][14] =         0.0; 
     r[14][15] =        86.5;  r[14][16] =        46.8;  r[14][17] =         0.2; 
     r[14][18] =        18.4;  r[14][19] =        31.7; 
     r[15][ 0] =       673.0;  r[15][ 1] =         2.7;  r[15][ 2] =       398.4; 
     r[15][ 3] =        44.4;  r[15][ 4] =       664.2;  r[15][ 5] =        52.4; 
     r[15][ 6] =        31.5;  r[15][ 7] =       226.0;  r[15][ 8] =        10.6; 
     r[15][ 9] =         7.2;  r[15][10] =         8.2;  r[15][11] =       144.2; 
     r[15][12] =       111.7;  r[15][13] =        36.1;  r[15][14] =        86.5; 
     r[15][15] =         0.0;  r[15][16] =       660.4;  r[15][17] =         2.4; 
     r[15][18] =        30.5;  r[15][19] =        60.6; 
     r[16][ 0] =       243.9;  r[16][ 1] =         0.2;  r[16][ 2] =       165.9; 
     r[16][ 3] =         0.2;  r[16][ 4] =       182.8;  r[16][ 5] =        43.7; 
     r[16][ 6] =        43.4;  r[16][ 7] =         0.2;  r[16][ 8] =        18.6; 
     r[16][ 9] =       203.7;  r[16][10] =        47.8;  r[16][11] =        69.5; 
     r[16][12] =       288.6;  r[16][13] =        13.5;  r[16][14] =        46.8; 
     r[16][15] =       660.4;  r[16][16] =         0.0;  r[16][17] =         0.2; 
     r[16][18] =        46.0;  r[16][19] =       544.1; 
     r[17][ 0] =         0.2;  r[17][ 1] =         0.2;  r[17][ 2] =         7.7; 
     r[17][ 3] =         0.2;  r[17][ 4] =        21.6;  r[17][ 5] =         6.7; 
     r[17][ 6] =        11.0;  r[17][ 7] =         1.9;  r[17][ 8] =         0.2; 
     r[17][ 9] =         0.2;  r[17][10] =        21.1;  r[17][11] =        16.0; 
     r[17][12] =        70.7;  r[17][13] =        53.7;  r[17][14] =         0.2; 
     r[17][15] =         2.4;  r[17][16] =         0.2;  r[17][17] =         0.0; 
     r[17][18] =        37.7;  r[17][19] =         0.2; 
     r[18][ 0] =         1.2;  r[18][ 1] =         3.9;  r[18][ 2] =       251.2; 
     r[18][ 3] =         0.2;  r[18][ 4] =        72.0;  r[18][ 5] =        86.7; 
     r[18][ 6] =         7.7;  r[18][ 7] =         8.6;  r[18][ 8] =       191.4; 
     r[18][ 9] =        12.3;  r[18][10] =        19.8;  r[18][11] =       117.1; 
     r[18][12] =        70.9;  r[18][13] =       791.6;  r[18][14] =        18.4; 
     r[18][15] =        30.5;  r[18][16] =        46.0;  r[18][17] =        37.7; 
     r[18][18] =         0.0;  r[18][19] =         1.6; 
     r[19][ 0] =       339.9;  r[19][ 1] =         0.2;  r[19][ 2] =        22.6; 
     r[19][ 3] =         0.2;  r[19][ 4] =       350.4;  r[19][ 5] =         0.2; 
     r[19][ 6] =        13.6;  r[19][ 7] =         2.6;  r[19][ 8] =         0.2; 
     r[19][ 9] =      1854.5;  r[19][10] =        84.7;  r[19][11] =        26.1; 
     r[19][12] =       281.3;  r[19][13] =        51.9;  r[19][14] =        31.7; 
     r[19][15] =        60.6;  r[19][16] =       544.1;  r[19][17] =         0.2; 
     r[19][18] =         1.6;  r[19][19] =         0.0; 
}

void mtzoaRMatrix(double **r)
{
     r[ 0][ 0] =     0.0;  r[ 0][ 1] =     3.3;  r[ 0][ 2] =     1.7; 
     r[ 0][ 3] =    16.1;  r[ 0][ 4] =   272.5;  r[ 0][ 5] =     7.3; 
     r[ 0][ 6] =    17.1;  r[ 0][ 7] =   289.3;  r[ 0][ 8] =     2.3; 
     r[ 0][ 9] =    33.2;  r[ 0][10] =    15.6;  r[ 0][11] =     0.2; 
     r[ 0][12] =   136.5;  r[ 0][13] =    26.5;  r[ 0][14] =    61.8; 
     r[ 0][15] =   644.9;  r[ 0][16] =   378.1;  r[ 0][17] =     3.1; 
     r[ 0][18] =     2.1;  r[ 0][19] =   321.9; 
     r[ 1][ 0] =     3.3;  r[ 1][ 1] =     0.0;  r[ 1][ 2] =    33.6; 
     r[ 1][ 3] =     3.2;  r[ 1][ 4] =    61.1;  r[ 1][ 5] =   231.0; 
     r[ 1][ 6] =     6.4;  r[ 1][ 7] =     7.2;  r[ 1][ 8] =    61.7; 
     r[ 1][ 9] =     0.2;  r[ 1][10] =     4.1;  r[ 1][11] =   292.3; 
     r[ 1][12] =     3.8;  r[ 1][13] =     0.2;  r[ 1][14] =     7.5; 
     r[ 1][15] =    11.8;  r[ 1][16] =     3.2;  r[ 1][17] =    16.9; 
     r[ 1][18] =    13.8;  r[ 1][19] =     5.1; 
     r[ 2][ 0] =     1.7;  r[ 2][ 1] =    33.6;  r[ 2][ 2] =     0.0; 
     r[ 2][ 3] =   617.0;  r[ 2][ 4] =    94.6;  r[ 2][ 5] =   190.3; 
     r[ 2][ 6] =   174.0;  r[ 2][ 7] =    99.3;  r[ 2][ 8] =   228.9; 
     r[ 2][ 9] =    24.3;  r[ 2][10] =     7.9;  r[ 2][11] =   413.4; 
     r[ 2][12] =    73.7;  r[ 2][13] =    12.9;  r[ 2][14] =    22.6; 
     r[ 2][15] =   420.2;  r[ 2][16] =   184.6;  r[ 2][17] =     6.4; 
     r[ 2][18] =   141.6;  r[ 2][19] =     7.1; 
     r[ 3][ 0] =    16.1;  r[ 3][ 1] =     3.2;  r[ 3][ 2] =   617.0; 
     r[ 3][ 3] =     0.0;  r[ 3][ 4] =     9.5;  r[ 3][ 5] =    19.3; 
     r[ 3][ 6] =   883.6;  r[ 3][ 7] =    26.0;  r[ 3][ 8] =    55.6; 
     r[ 3][ 9] =     1.5;  r[ 3][10] =     0.5;  r[ 3][11] =     0.2; 
     r[ 3][12] =     0.2;  r[ 3][13] =     2.0;  r[ 3][14] =     0.2; 
     r[ 3][15] =    51.4;  r[ 3][16] =     2.3;  r[ 3][17] =     0.2; 
     r[ 3][18] =    13.9;  r[ 3][19] =     3.7; 
     r[ 4][ 0] =   272.5;  r[ 4][ 1] =    61.1;  r[ 4][ 2] =    94.6; 
     r[ 4][ 3] =     9.5;  r[ 4][ 4] =     0.0;  r[ 4][ 5] =    49.1; 
     r[ 4][ 6] =     3.4;  r[ 4][ 7] =    82.4;  r[ 4][ 8] =    37.5; 
     r[ 4][ 9] =    48.8;  r[ 4][10] =    59.7;  r[ 4][11] =     0.2; 
     r[ 4][12] =   264.8;  r[ 4][13] =   167.8;  r[ 4][14] =     8.1; 
     r[ 4][15] =   656.3;  r[ 4][16] =   199.0;  r[ 4][17] =    36.1; 
     r[ 4][18] =    76.7;  r[ 4][19] =   243.8; 
     r[ 5][ 0] =     7.3;  r[ 5][ 1] =   231.0;  r[ 5][ 2] =   190.3; 
     r[ 5][ 3] =    19.3;  r[ 5][ 4] =    49.1;  r[ 5][ 5] =     0.0; 
     r[ 5][ 6] =   349.4;  r[ 5][ 7] =     8.9;  r[ 5][ 8] =   421.8; 
     r[ 5][ 9] =     0.2;  r[ 5][10] =    23.0;  r[ 5][11] =   334.0; 
     r[ 5][12] =    83.9;  r[ 5][13] =     9.5;  r[ 5][14] =    52.2; 
     r[ 5][15] =    96.4;  r[ 5][16] =    39.4;  r[ 5][17] =     6.1; 
     r[ 5][18] =    52.3;  r[ 5][19] =     9.0; 
     r[ 6][ 0] =    17.1;  r[ 6][ 1] =     6.4;  r[ 6][ 2] =   174.0; 
     r[ 6][ 3] =   883.6;  r[ 6][ 4] =     3.4;  r[ 6][ 5] =   349.4; 
     r[ 6][ 6] =     0.0;  r[ 6][ 7] =    43.1;  r[ 6][ 8] =    14.9; 
     r[ 6][ 9] =     7.3;  r[ 6][10] =     1.0;  r[ 6][11] =   163.2; 
     r[ 6][12] =     0.2;  r[ 6][13] =     0.2;  r[ 6][14] =    20.6; 
     r[ 6][15] =    38.4;  r[ 6][16] =    34.5;  r[ 6][17] =     3.5; 
     r[ 6][18] =    10.0;  r[ 6][19] =    16.3; 
     r[ 7][ 0] =   289.3;  r[ 7][ 1] =     7.2;  r[ 7][ 2] =    99.3; 
     r[ 7][ 3] =    26.0;  r[ 7][ 4] =    82.4;  r[ 7][ 5] =     8.9; 
     r[ 7][ 6] =    43.1;  r[ 7][ 7] =     0.0;  r[ 7][ 8] =     7.4; 
     r[ 7][ 9] =     3.4;  r[ 7][10] =     3.5;  r[ 7][11] =    10.1; 
     r[ 7][12] =    52.2;  r[ 7][13] =     5.8;  r[ 7][14] =     1.3; 
     r[ 7][15] =   257.1;  r[ 7][16] =     5.2;  r[ 7][17] =    12.3; 
     r[ 7][18] =     4.3;  r[ 7][19] =    23.7; 
     r[ 8][ 0] =     2.3;  r[ 8][ 1] =    61.7;  r[ 8][ 2] =   228.9; 
     r[ 8][ 3] =    55.6;  r[ 8][ 4] =    37.5;  r[ 8][ 5] =   421.8; 
     r[ 8][ 6] =    14.9;  r[ 8][ 7] =     7.4;  r[ 8][ 8] =     0.0; 
     r[ 8][ 9] =     1.6;  r[ 8][10] =     6.6;  r[ 8][11] =    23.9; 
     r[ 8][12] =     7.1;  r[ 8][13] =    13.1;  r[ 8][14] =    15.6; 
     r[ 8][15] =    23.1;  r[ 8][16] =    19.4;  r[ 8][17] =     4.5; 
     r[ 8][18] =   266.5;  r[ 8][19] =     0.3; 
     r[ 9][ 0] =    33.2;  r[ 9][ 1] =     0.2;  r[ 9][ 2] =    24.3; 
     r[ 9][ 3] =     1.5;  r[ 9][ 4] =    48.8;  r[ 9][ 5] =     0.2; 
     r[ 9][ 6] =     7.3;  r[ 9][ 7] =     3.4;  r[ 9][ 8] =     1.6; 
     r[ 9][ 9] =     0.0;  r[ 9][10] =   425.2;  r[ 9][11] =     8.4; 
     r[ 9][12] =   449.7;  r[ 9][13] =    90.3;  r[ 9][14] =     2.6; 
     r[ 9][15] =     7.2;  r[ 9][16] =   222.3;  r[ 9][17] =     9.7; 
     r[ 9][18] =    13.1;  r[ 9][19] =  1710.6; 
     r[10][ 0] =    15.6;  r[10][ 1] =     4.1;  r[10][ 2] =     7.9; 
     r[10][ 3] =     0.5;  r[10][ 4] =    59.7;  r[10][ 5] =    23.0; 
     r[10][ 6] =     1.0;  r[10][ 7] =     3.5;  r[10][ 8] =     6.6; 
     r[10][ 9] =   425.2;  r[10][10] =     0.0;  r[10][11] =     6.7; 
     r[10][12] =   636.3;  r[10][13] =   234.2;  r[10][14] =    11.4; 
     r[10][15] =    15.2;  r[10][16] =    50.0;  r[10][17] =    27.2; 
     r[10][18] =     5.7;  r[10][19] =   126.1; 
     r[11][ 0] =     0.2;  r[11][ 1] =   292.3;  r[11][ 2] =   413.4; 
     r[11][ 3] =     0.2;  r[11][ 4] =     0.2;  r[11][ 5] =   334.0; 
     r[11][ 6] =   163.2;  r[11][ 7] =    10.1;  r[11][ 8] =    23.9; 
     r[11][ 9] =     8.4;  r[11][10] =     6.7;  r[11][11] =     0.0; 
     r[11][12] =    83.0;  r[11][13] =    16.3;  r[11][14] =    24.3; 
     r[11][15] =   144.9;  r[11][16] =    75.5;  r[11][17] =     6.6; 
     r[11][18] =    45.0;  r[11][19] =    11.1; 
     r[12][ 0] =   136.5;  r[12][ 1] =     3.8;  r[12][ 2] =    73.7; 
     r[12][ 3] =     0.2;  r[12][ 4] =   264.8;  r[12][ 5] =    83.9; 
     r[12][ 6] =     0.2;  r[12][ 7] =    52.2;  r[12][ 8] =     7.1; 
     r[12][ 9] =   449.7;  r[12][10] =   636.3;  r[12][11] =    83.0; 
     r[12][12] =     0.0;  r[12][13] =   215.6;  r[12][14] =     5.4; 
     r[12][15] =    95.3;  r[12][16] =   305.1;  r[12][17] =    48.7; 
     r[12][18] =    41.4;  r[12][19] =   279.6; 
     r[13][ 0] =    26.5;  r[13][ 1] =     0.2;  r[13][ 2] =    12.9; 
     r[13][ 3] =     2.0;  r[13][ 4] =   167.8;  r[13][ 5] =     9.5; 
     r[13][ 6] =     0.2;  r[13][ 7] =     5.8;  r[13][ 8] =    13.1; 
     r[13][ 9] =    90.3;  r[13][10] =   234.2;  r[13][11] =    16.3; 
     r[13][12] =   215.6;  r[13][13] =     0.0;  r[13][14] =    10.5; 
     r[13][15] =    32.2;  r[13][16] =    19.3;  r[13][17] =    58.2; 
     r[13][18] =   590.5;  r[13][19] =    59.6; 
     r[14][ 0] =    61.8;  r[14][ 1] =     7.5;  r[14][ 2] =    22.6; 
     r[14][ 3] =     0.2;  r[14][ 4] =     8.1;  r[14][ 5] =    52.2; 
     r[14][ 6] =    20.6;  r[14][ 7] =     1.3;  r[14][ 8] =    15.6; 
     r[14][ 9] =     2.6;  r[14][10] =    11.4;  r[14][11] =    24.3; 
     r[14][12] =     5.4;  r[14][13] =    10.5;  r[14][14] =     0.0; 
     r[14][15] =    79.7;  r[14][16] =    56.9;  r[14][17] =     1.3; 
     r[14][18] =     4.2;  r[14][19] =    17.9; 
     r[15][ 0] =   644.9;  r[15][ 1] =    11.8;  r[15][ 2] =   420.2; 
     r[15][ 3] =    51.4;  r[15][ 4] =   656.3;  r[15][ 5] =    96.4; 
     r[15][ 6] =    38.4;  r[15][ 7] =   257.1;  r[15][ 8] =    23.1; 
     r[15][ 9] =     7.2;  r[15][10] =    15.2;  r[15][11] =   144.9; 
     r[15][12] =    95.3;  r[15][13] =    32.2;  r[15][14] =    79.7; 
     r[15][15] =     0.0;  r[15][16] =   666.3;  r[15][17] =    10.3; 
     r[15][18] =    29.7;  r[15][19] =    49.5; 
     r[16][ 0] =   378.1;  r[16][ 1] =     3.2;  r[16][ 2] =   184.6; 
     r[16][ 3] =     2.3;  r[16][ 4] =   199.0;  r[16][ 5] =    39.4; 
     r[16][ 6] =    34.5;  r[16][ 7] =     5.2;  r[16][ 8] =    19.4; 
     r[16][ 9] =   222.3;  r[16][10] =    50.0;  r[16][11] =    75.5; 
     r[16][12] =   305.1;  r[16][13] =    19.3;  r[16][14] =    56.9; 
     r[16][15] =   666.3;  r[16][16] =     0.0;  r[16][17] =     3.6; 
     r[16][18] =    29.0;  r[16][19] =   396.4; 
     r[17][ 0] =     3.1;  r[17][ 1] =    16.9;  r[17][ 2] =     6.4; 
     r[17][ 3] =     0.2;  r[17][ 4] =    36.1;  r[17][ 5] =     6.1; 
     r[17][ 6] =     3.5;  r[17][ 7] =    12.3;  r[17][ 8] =     4.5; 
     r[17][ 9] =     9.7;  r[17][10] =    27.2;  r[17][11] =     6.6; 
     r[17][12] =    48.7;  r[17][13] =    58.2;  r[17][14] =     1.3; 
     r[17][15] =    10.3;  r[17][16] =     3.6;  r[17][17] =     0.0; 
     r[17][18] =    79.8;  r[17][19] =    13.7; 
     r[18][ 0] =     2.1;  r[18][ 1] =    13.8;  r[18][ 2] =   141.6; 
     r[18][ 3] =    13.9;  r[18][ 4] =    76.7;  r[18][ 5] =    52.3; 
     r[18][ 6] =    10.0;  r[18][ 7] =     4.3;  r[18][ 8] =   266.5; 
     r[18][ 9] =    13.1;  r[18][10] =     5.7;  r[18][11] =    45.0; 
     r[18][12] =    41.4;  r[18][13] =   590.5;  r[18][14] =     4.2; 
     r[18][15] =    29.7;  r[18][16] =    29.0;  r[18][17] =    79.8; 
     r[18][18] =     0.0;  r[18][19] =    15.6; 
     r[19][ 0] =   321.9;  r[19][ 1] =     5.1;  r[19][ 2] =     7.1; 
     r[19][ 3] =     3.7;  r[19][ 4] =   243.8;  r[19][ 5] =     9.0; 
     r[19][ 6] =    16.3;  r[19][ 7] =    23.7;  r[19][ 8] =     0.3; 
     r[19][ 9] =  1710.6;  r[19][10] =   126.1;  r[19][11] =    11.1; 
     r[19][12] =   279.6;  r[19][13] =    59.6;  r[19][14] =    17.9; 
     r[19][15] =    49.5;  r[19][16] =   396.4;  r[19][17] =    13.7; 
     r[19][18] =    15.6;  r[19][19] =     0.0; 
}

// Cymon was here!
// This is the 19-1 matrix ln -112350.340982 better that cpREV -113162.501006
void gcpREVRMatrix(double **r)
{
     r[ 0][ 0] =      0.0;  r[ 0][ 1] =     12.2;  r[ 0][ 2] =     59.1; 
     r[ 0][ 3] =     87.7;  r[ 0][ 4] =    699.4;  r[ 0][ 5] =    199.5; 
     r[ 0][ 6] =    288.3;  r[ 0][ 7] =    677.9;  r[ 0][ 8] =     32.0; 
     r[ 0][ 9] =     39.5;  r[ 0][10] =     33.8;  r[ 0][11] =     78.3; 
     r[ 0][12] =    197.1;  r[ 0][13] =     59.3;  r[ 0][14] =    505.8; 
     r[ 0][15] =   2443.9;  r[ 0][16] =   1646.2;  r[ 0][17] =     30.0; 
     r[ 0][18] =     27.9;  r[ 0][19] =   1143.8; 
     r[ 1][ 0] =     12.2;  r[ 1][ 1] =      0.0;  r[ 1][ 2] =    313.0; 
     r[ 1][ 3] =     40.6;  r[ 1][ 4] =   1867.9;  r[ 1][ 5] =   2321.3; 
     r[ 1][ 6] =     51.9;  r[ 1][ 7] =    391.2;  r[ 1][ 8] =   1228.7; 
     r[ 1][ 9] =    105.4;  r[ 1][10] =    124.9;  r[ 1][11] =   4666.4; 
     r[ 1][12] =    112.1;  r[ 1][13] =     26.1;  r[ 1][14] =     89.4; 
     r[ 1][15] =    269.6;  r[ 1][16] =    173.4;  r[ 1][17] =    257.8; 
     r[ 1][18] =    137.0;  r[ 1][19] =     62.0; 
     r[ 2][ 0] =     59.1;  r[ 2][ 1] =    313.0;  r[ 2][ 2] =      0.0; 
     r[ 2][ 3] =   5083.8;  r[ 2][ 4] =    133.7;  r[ 2][ 5] =    827.8; 
     r[ 2][ 6] =    230.9;  r[ 2][ 7] =    446.5;  r[ 2][ 8] =   2156.8; 
     r[ 2][ 9] =    146.0;  r[ 2][10] =     11.6;  r[ 2][11] =   1930.8; 
     r[ 2][12] =     41.4;  r[ 2][13] =     13.4;  r[ 2][14] =     18.7; 
     r[ 2][15] =   2505.4;  r[ 2][16] =   1373.3;  r[ 2][17] =     19.9; 
     r[ 2][18] =    316.2;  r[ 2][19] =     27.6; 
     r[ 3][ 0] =     87.7;  r[ 3][ 1] =     40.6;  r[ 3][ 2] =   5083.8; 
     r[ 3][ 3] =      0.0;  r[ 3][ 4] =    125.3;  r[ 3][ 5] =    387.6; 
     r[ 3][ 6] =   3638.7;  r[ 3][ 7] =    464.8;  r[ 3][ 8] =    527.7; 
     r[ 3][ 9] =     16.8;  r[ 3][10] =      8.7;  r[ 3][11] =     78.3; 
     r[ 3][12] =     33.1;  r[ 3][13] =     15.9;  r[ 3][14] =     43.6; 
     r[ 3][15] =    142.1;  r[ 3][16] =     66.1;  r[ 3][17] =     35.0; 
     r[ 3][18] =    272.1;  r[ 3][19] =     18.5; 
     r[ 4][ 0] =    699.4;  r[ 4][ 1] =   1867.9;  r[ 4][ 2] =    133.7; 
     r[ 4][ 3] =    125.3;  r[ 4][ 4] =      0.0;  r[ 4][ 5] =    195.1; 
     r[ 4][ 6] =    102.4;  r[ 4][ 7] =    433.6;  r[ 4][ 8] =    574.8; 
     r[ 4][ 9] =     96.0;  r[ 4][10] =    446.5;  r[ 4][11] =     89.2; 
     r[ 4][12] =    288.5;  r[ 4][13] =   1540.1;  r[ 4][14] =    124.9; 
     r[ 4][15] =   3029.8;  r[ 4][16] =    516.8;  r[ 4][17] =    562.6; 
     r[ 4][18] =   1571.2;  r[ 4][19] =    722.2; 
     r[ 5][ 0] =    199.5;  r[ 5][ 1] =   2321.3;  r[ 5][ 2] =    827.8; 
     r[ 5][ 3] =    387.6;  r[ 5][ 4] =    195.1;  r[ 5][ 5] =      0.0; 
     r[ 5][ 6] =   2965.3;  r[ 5][ 7] =     40.8;  r[ 5][ 8] =   1889.6; 
     r[ 5][ 9] =     48.5;  r[ 5][10] =    235.4;  r[ 5][11] =   2571.2; 
     r[ 5][12] =    341.8;  r[ 5][13] =     10.7;  r[ 5][14] =    223.1; 
     r[ 5][15] =    246.9;  r[ 5][16] =    128.5;  r[ 5][17] =     24.6; 
     r[ 5][18] =    179.1;  r[ 5][19] =     50.2; 
     r[ 6][ 0] =    288.3;  r[ 6][ 1] =     51.9;  r[ 6][ 2] =    230.9; 
     r[ 6][ 3] =   3638.7;  r[ 6][ 4] =    102.4;  r[ 6][ 5] =   2965.3; 
     r[ 6][ 6] =      0.0;  r[ 6][ 7] =    393.8;  r[ 6][ 8] =    144.6; 
     r[ 6][ 9] =     23.4;  r[ 6][10] =     26.8;  r[ 6][11] =   1870.9; 
     r[ 6][12] =     33.3;  r[ 6][13] =     30.7;  r[ 6][14] =     39.4; 
     r[ 6][15] =    156.7;  r[ 6][16] =    230.0;  r[ 6][17] =     57.2; 
     r[ 6][18] =     79.2;  r[ 6][19] =    103.8; 
     r[ 7][ 0] =    677.9;  r[ 7][ 1] =    391.2;  r[ 7][ 2] =    446.5; 
     r[ 7][ 3] =    464.8;  r[ 7][ 4] =    433.6;  r[ 7][ 5] =     40.8; 
     r[ 7][ 6] =    393.8;  r[ 7][ 7] =      0.0;  r[ 7][ 8] =     35.6; 
     r[ 7][ 9] =     11.8;  r[ 7][10] =      4.3;  r[ 7][11] =    193.4; 
     r[ 7][12] =     11.8;  r[ 7][13] =     10.1;  r[ 7][14] =     11.8; 
     r[ 7][15] =    709.0;  r[ 7][16] =     65.5;  r[ 7][17] =     92.6; 
     r[ 7][18] =     20.6;  r[ 7][19] =     72.6; 
     r[ 8][ 0] =     32.0;  r[ 8][ 1] =   1228.7;  r[ 8][ 2] =   2156.8; 
     r[ 8][ 3] =    527.7;  r[ 8][ 4] =    574.8;  r[ 8][ 5] =   1889.6; 
     r[ 8][ 6] =    144.6;  r[ 8][ 7] =     35.6;  r[ 8][ 8] =      0.0; 
     r[ 8][ 9] =     38.1;  r[ 8][10] =     46.1;  r[ 8][11] =     96.9; 
     r[ 8][12] =     54.5;  r[ 8][13] =     87.2;  r[ 8][14] =    185.1; 
     r[ 8][15] =    277.0;  r[ 8][16] =     77.1;  r[ 8][17] =     58.5; 
     r[ 8][18] =   4117.5;  r[ 8][19] =     22.8; 
     r[ 9][ 0] =     39.5;  r[ 9][ 1] =    105.4;  r[ 9][ 2] =    146.0; 
     r[ 9][ 3] =     16.8;  r[ 9][ 4] =     96.0;  r[ 9][ 5] =     48.5; 
     r[ 9][ 6] =     23.4;  r[ 9][ 7] =     11.8;  r[ 9][ 8] =     38.1; 
     r[ 9][ 9] =      0.0;  r[ 9][10] =   1657.9;  r[ 9][11] =    125.7; 
     r[ 9][12] =   2493.4;  r[ 9][13] =    354.4;  r[ 9][14] =     63.1; 
     r[ 9][15] =     75.6;  r[ 9][16] =   1227.2;  r[ 9][17] =     21.1; 
     r[ 9][18] =     35.8;  r[ 9][19] =   6006.5; 
     r[10][ 0] =     33.8;  r[10][ 1] =    124.9;  r[10][ 2] =     11.6; 
     r[10][ 3] =      8.7;  r[10][ 4] =    446.5;  r[10][ 5] =    235.4; 
     r[10][ 6] =     26.8;  r[10][ 7] =      4.3;  r[10][ 8] =     46.1; 
     r[10][ 9] =   1657.9;  r[10][10] =      0.0;  r[10][11] =     37.6; 
     r[10][12] =   1389.6;  r[10][13] =   1585.8;  r[10][14] =    347.7; 
     r[10][15] =    584.9;  r[10][16] =     62.9;  r[10][17] =    218.2; 
     r[10][18] =     82.0;  r[10][19] =    661.7; 
     r[11][ 0] =     78.3;  r[11][ 1] =   4666.4;  r[11][ 2] =   1930.8; 
     r[11][ 3] =     78.3;  r[11][ 4] =     89.2;  r[11][ 5] =   2571.2; 
     r[11][ 6] =   1870.9;  r[11][ 7] =    193.4;  r[11][ 8] =     96.9; 
     r[11][ 9] =    125.7;  r[11][10] =     37.6;  r[11][11] =      0.0; 
     r[11][12] =    220.1;  r[11][13] =      9.0;  r[11][14] =     49.8; 
     r[11][15] =    209.3;  r[11][16] =    648.5;  r[11][17] =     15.9; 
     r[11][18] =     84.2;  r[11][19] =     66.2; 
     r[12][ 0] =    197.1;  r[12][ 1] =    112.1;  r[12][ 2] =     41.4; 
     r[12][ 3] =     33.1;  r[12][ 4] =    288.5;  r[12][ 5] =    341.8; 
     r[12][ 6] =     33.3;  r[12][ 7] =     11.8;  r[12][ 8] =     54.5; 
     r[12][ 9] =   2493.4;  r[12][10] =   1389.6;  r[12][11] =    220.1; 
     r[12][12] =      0.0;  r[12][13] =    183.4;  r[12][14] =     19.2; 
     r[12][15] =     32.9;  r[12][16] =   1143.5;  r[12][17] =     70.5; 
     r[12][18] =     41.1;  r[12][19] =    465.7; 
     r[13][ 0] =     59.3;  r[13][ 1] =     26.1;  r[13][ 2] =     13.4; 
     r[13][ 3] =     15.9;  r[13][ 4] =   1540.1;  r[13][ 5] =     10.7; 
     r[13][ 6] =     30.7;  r[13][ 7] =     10.1;  r[13][ 8] =     87.2; 
     r[13][ 9] =    354.4;  r[13][10] =   1585.8;  r[13][11] =      9.0; 
     r[13][12] =    183.4;  r[13][13] =      0.0;  r[13][14] =     82.1; 
     r[13][15] =    790.5;  r[13][16] =     29.8;  r[13][17] =    558.3; 
     r[13][18] =   2360.2;  r[13][19] =    180.6; 
     r[14][ 0] =    505.8;  r[14][ 1] =     89.4;  r[14][ 2] =     18.7; 
     r[14][ 3] =     43.6;  r[14][ 4] =    124.9;  r[14][ 5] =    223.1; 
     r[14][ 6] =     39.4;  r[14][ 7] =     11.8;  r[14][ 8] =    185.1; 
     r[14][ 9] =     63.1;  r[14][10] =    347.7;  r[14][11] =     49.8; 
     r[14][12] =     19.2;  r[14][13] =     82.1;  r[14][14] =      0.0; 
     r[14][15] =   1154.5;  r[14][16] =    322.8;  r[14][17] =     18.5; 
     r[14][18] =     15.8;  r[14][19] =     75.5; 
     r[15][ 0] =   2443.9;  r[15][ 1] =    269.6;  r[15][ 2] =   2505.4; 
     r[15][ 3] =    142.1;  r[15][ 4] =   3029.8;  r[15][ 5] =    246.9; 
     r[15][ 6] =    156.7;  r[15][ 7] =    709.0;  r[15][ 8] =    277.0; 
     r[15][ 9] =     75.6;  r[15][10] =    584.9;  r[15][11] =    209.3; 
     r[15][12] =     32.9;  r[15][13] =    790.5;  r[15][14] =   1154.5; 
     r[15][15] =      0.0;  r[15][16] =   2042.5;  r[15][17] =    102.6; 
     r[15][18] =    501.9;  r[15][19] =     61.2; 
     r[16][ 0] =   1646.2;  r[16][ 1] =    173.4;  r[16][ 2] =   1373.3; 
     r[16][ 3] =     66.1;  r[16][ 4] =    516.8;  r[16][ 5] =    128.5; 
     r[16][ 6] =    230.0;  r[16][ 7] =     65.5;  r[16][ 8] =     77.1; 
     r[16][ 9] =   1227.2;  r[16][10] =     62.9;  r[16][11] =    648.5; 
     r[16][12] =   1143.5;  r[16][13] =     29.8;  r[16][14] =    322.8; 
     r[16][15] =   2042.5;  r[16][16] =      0.0;  r[16][17] =     22.0; 
     r[16][18] =     64.6;  r[16][19] =    583.7; 
     r[17][ 0] =     30.0;  r[17][ 1] =    257.8;  r[17][ 2] =     19.9; 
     r[17][ 3] =     35.0;  r[17][ 4] =    562.6;  r[17][ 5] =     24.6; 
     r[17][ 6] =     57.2;  r[17][ 7] =     92.6;  r[17][ 8] =     58.5; 
     r[17][ 9] =     21.1;  r[17][10] =    218.2;  r[17][11] =     15.9; 
     r[17][12] =     70.5;  r[17][13] =    558.3;  r[17][14] =     18.5; 
     r[17][15] =    102.6;  r[17][16] =     22.0;  r[17][17] =      0.0; 
     r[17][18] =    296.3;  r[17][19] =     10.8; 
     r[18][ 0] =     27.9;  r[18][ 1] =    137.0;  r[18][ 2] =    316.2; 
     r[18][ 3] =    272.1;  r[18][ 4] =   1571.2;  r[18][ 5] =    179.1; 
     r[18][ 6] =     79.2;  r[18][ 7] =     20.6;  r[18][ 8] =   4117.5; 
     r[18][ 9] =     35.8;  r[18][10] =     82.0;  r[18][11] =     84.2; 
     r[18][12] =     41.1;  r[18][13] =   2360.2;  r[18][14] =     15.8; 
     r[18][15] =    501.9;  r[18][16] =     64.6;  r[18][17] =    296.3; 
     r[18][18] =      0.0;  r[18][19] =     37.3; 
     r[19][ 0] =   1143.8;  r[19][ 1] =     62.0;  r[19][ 2] =     27.6; 
     r[19][ 3] =     18.5;  r[19][ 4] =    722.2;  r[19][ 5] =     50.2; 
     r[19][ 6] =    103.8;  r[19][ 7] =     72.6;  r[19][ 8] =     22.8; 
     r[19][ 9] =   6006.5;  r[19][10] =    661.7;  r[19][11] =     66.2; 
     r[19][12] =    465.7;  r[19][13] =    180.6;  r[19][14] =     75.5; 
     r[19][15] =     61.2;  r[19][16] =    583.7;  r[19][17] =     10.8; 
     r[19][18] =     37.3;  r[19][19] =      0.0; 
}
